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cccccccccccc LLL III1I111 UUU UUU TTTTTTTTTTTTTTT LLet 
cceccccccccce =k HII UUU UUU TITTTTTTITTTITTT LLL 
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ccc LLL I]] U UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL I]] UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I}] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL IJ] UUU UUU TTT LLL 
CCCCCCCCCCCC LLL LLLLLLLLLLLL HII UUUUUUUUUUUUUUU TTT LELLLLLELLLELLLL 
CCCCCCCCCCCC LLL LLLLLLLLLLLL HIIIII11 UUUUUUUUUUUUUUU TTT LLELLLLLLLLLLLLL 
CCCCCCCCCCCC LLLLLLLLLLLLLLL HII UUUUUUUUUUUUUUU TTT LLELLLLLLLLLLLLL 
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5 AX-11 iss- 4.0- 
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7% p 
CLIUTL.SRCJSETVOLUME B32; 1 ste 


; 1 1 

3 ¢ § MODULE setvol ( 

; IDENT = ‘Vv04-000', 

; 4 ADDRESSING_MODE (EXTERNAL=GENERAL, 

: i B06 a NONE XTERNAL=LONG_RELATIVE) 

; BEGIN 

; 8 0008 1 

; 9 0009 1! 

: 19 gate } : Seeeenserererereenenesesenareresererereerenererereteenefeneneteteteteetes 
: 'e * 
; \¢ O91¢ 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
3 1 0015 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
; 1% Sete : :* ALL RIGHTS RESERVED. * 
: : 
3; 0016 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
a= OF 0019 1 !* ONLY IN ACCORDANCE WITH THE R OF SUCH LICENSE AND WITH THE * 
; 0018 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
; 19 0019 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; 0 0020 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 1 Be 1 } - TRANSFERRED. s 
Ps H * 
: : 00 : 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; 4 0024 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
: $2 e 5 : :* CORPORATION. : 
; si 00 ; 1 i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS’ * 
; ; ss ; ’ - SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
Py H * 
; 0 $080 1 !« 2 
3 1 $9 : s DonwSeonceSesENNSESeCEDeNDESeTSRENERSRNES TS SSNSTSeNsNSToNSROReNSNeTeNSITONS 
ss 0035 | 

; Boge 1 !+4 

: H Boas : FACILITY: Set Volume Command 

; i 9037 1 i ABSTRACT: 

; ip zp : . This module processes the Set Volume command. 

i 4] 0041 1 | ENVIRONMENT: 

5 43 Does 1 : Vax native, privileged user mode 

; 45 00¢$ | ine 

: 48 0046 1! 

: 43 nt 4 : : AUTHOR: Gerry Smith CREATION DATE: 3-Nov-1981 

ay. 0049 1 | MODIFIED BY: 

Tae i 0081 1 i 

; 2g 25 1! v03-010 AEWOO03 Anne E. Warner 18-Jul-1984 

a. 2 os 9 3 Add a check to see if the device specified is a 

; «654 054 1! Files-11 format disk and if not tell the user. 

ee: 055 1! This check includes the new error message: ; 

: 28 Bpe$ ! set$_notdisk, device is not a files-11 format disk 


nna en ere 


1)-509-1986 AX-11 Bliss-32 v4.0-7 p 
ease 188 foiboiss | eee ToT these Fb ume oS2-1 es 


ro 
S 


; 38 38 1! Also check to see if qualifiers with ‘values’ check 

; 9 059 1! that the qualifier is present before looking for values. 
; 60 060 1! This is because most qualifiers are negatable now. 

; 6) Bs «4 As a result this check was added to /LABEL when it is 
3 6¢ § 1! checked for. 

:. © 065 1! 

5; & 064 1! v03-009 DAS0001 avid Solomon 09-Jul-1984 

; 2? 065 : : Add support for PaBUILD ~ porters volume rebuild. 

: 67 Soe? .% v03-008 AEWO002 Anne E. Warner 24-May-1984 

; «668 Boe . § Change RMS access to $Q10W access so that the home 

3 +4 B38 ef block can be found in ODS1 structure blocks. The 

; 0 070 1! problem was chet RMS sees the End-of-File as zero 

7 7 0071 1! on an ODS1 initialized volume and will not look for a 
: Le: $078 : } valid home block. 

: 7% 0074 1! v03-007 LMP0221 Pilan 9-Apr-1984 10:46 
; 75 0075 1! Change ecget. _owntic” ro oRBSe MOUNER and UCBS$W_VPROT to 
iA BAY nec 

: «78 0078 1 V03-006 MCNO164 a del C. Nasr 03-Apr-1984 

: He 4 : H The /DATA_CHECK eet Bae must accept NORFAD> and NOWRITE. 
: 81 0081 1! v03-005 AEWO001 Anne —. Warner 21-Mar-1984 

3 HY ae 2. Add a check to see if volume is mounted foreign. If 

; & 0083 1! t is it cannot be modified because it is not in 

3 Se se : Files-11 format so = the user and exit. 

: 86 0086 1: v03-004 GASO132 rey se May=19 

3 87 0087 1! Add LNOJMIGHWATERS C o3UNLOAD, <fuoanounr. TERI TeaTiON. 
; «88 0088 1 i CNOJERASE_ON_ DELETE. Also mod ify vo OLSET7SYS on the 

: 4 o088 : root volume for volume sets if / ABEL nootitan 

> 91 0091 1: v03-003 GASO121 y Smith 4-Apr-1983 

3 4 994 : For ODS1 disks, #sld” Long UIcs into “377. 377>. 

a 0094 1! v03-002 GASO112 Gerry Smith 29-Mar-1983 

5 4 8032 : Convert to new CLI Sheorteats and new command dispatcher. 
: 97 0097 1! V03-001 GASS2349 Gerry Smith 4-Jan-1983 

; 0098 1! Remove one level of indirection from the DEVCHAR field 
3 100 S444 : } of the UCB when modifying its contents. 

: 101 101 1 v03-006 GAS0091 Gerry Smith 19=0c t-1982 

3 106 19 : : Change input request Faee new CLD syntax. 

> 104 0104 1! v03-005 GAS0040 Gerry Smith 22-Feb-1982 

: 105 0105 1! Fix privilege check ing to chest for write access to 

; 106 8196 a. the volume's index e. Also, fix write bug that 

3 44 3434 ! : prevented modified home blocks to be written back. 

: 109 109 1 v03-004 GAS0033 Gerry Smith 12-Jan-1982 

3 19 119 : } Fix various bugs. 

: 112 118 1: v03-003 GAS0030 Gerry Smith 1-Jan-1982 

» FY 11 7 ! Add /RETENTION, the g A ee retention hah for files 
: 114 0114 1! created on a volume. 
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Add /LOG qualifier 
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Macro 
Macro 


MACRO 


RARY:LIB‘; 


a wt 
ow 


RARY: TPAMAC’; 


Note: The following macro violates the pblise lan 
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definition 


tis PFVOLUME 6 852;1 


ua 
in that it makes use of the value of SP while bul | ding the arg list. 
It is the opinion of the Bliss ak M chet his usage is safe 
from planned future optimizations. 


to call the change 
call format is 


a) CALL (R) = 
BUITTIN'SPe ROUTINE SYSSCMKRNL : ADDRESSING_MODE (ABSOLUTE); 


BUILT 
SYSSCMKRNL (R 


mode to kernel ezetee servic 


“ ERNEL. 


tir “ore 


CALL (ROUTINE, ARG], ARG2. ... )"%. 
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NGTH GTR 1 2THEN ,ZREMAINING 2F1) 
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FORWARD ROUTINE 


setSvolume : NOVALUE, 
get_quals, 

parse class, 
process_volume_set : NOVALUE, 
process_one_volume : NOVALUE, 
modify_volset : NOVALUE, 


set_home, 
set_ucbvcb : NOVALUE, 
read_homeblock; 


EXTERNAL ROUTINE 


cli$present, 
cli$get_value, 
LibSfile_scan, 
check_privilege : NOVALUE, 
search_error, 
file_error, 
checKsum2, 
ets channelucb, 
ibScvt_dtb, 
LibScvt_dtime, 
LibStparse, 
parse_uic, 
sys$fao; 


; External data references 
EXTERNAL 


exte_value, 
uic_value, 
group, 
member ; 


Error messages 
EXTERNAL LITERAL 


set$_nohome 
set$_notdisk, 
set$_notmod 
set$_notodse, 
set$_readerr, 
set$_sysnotupd, 
set$_writeerr; 
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Main routine for volume 
Get qualifiers 

Parse a protection class 

Process volume set 

Process each volume 

Fix VOLSET.SYS 

Modify the homeblock 

Modify the UCB and VCB for the disk 
Find and read first good homeblock 


Get qualifier 3 

Get value for qualifier 

Routine to get next directory 
Routine to check for privilege 
Where to go if file search fails 
Where to go if file error occurs 
Compute checksum 

Routine to get address of UCB 
Convert decimal to number 
Convert delta time 

Parser 

Parse a UIC 

Formatted ASCII output 


' EXTENSION value 
' Owner UIC 

' UIC group number 
! UIC member number 


Invalid protection value 


OPER privilege required 

Volume doesn't have Files-11 format 
Error reading homeblock 

Error wri io homeblock 

Volume fied 

Volume has no good home block d 
Device is not a files-11 format disk 
Volume not modified 

Qualifier invalid for ODS1 

Error reading volume 

Error updating ucb and vcb 

Could not write to file 
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‘ 
Declare some shared messages 


SSHR_MSGDEF (SET 11 119, LOCAL, 
er 
(Syntax: 
(close cout 
( nvquaval, 


' 
: Literal data definitions 


LITERAL 


LITERAL 
SEQULST 


poet ore 


quserneneets 
everetede, e 
ndows,), 

eee 

(erase_ val), 


(fhw 
Cth. val,) 


(mntver,),— 
(mntver_ val, ), 


LITERAL 0 
$E 


error), 
error), 
error), 
error) 
error)); 


2orr"moPry 
& 


me 


T 
WINDOWS bit 
CNOJERASE 


CNOJHIGHWATER 
CNOJMOUNT_VERIFICATION 
CNOJUNLOAD 

CNOJREBUILD 

Old Label was saved 


! DATA_CHECK 
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16-Sep-1984 4:8 : AX-11 Bliss-32 V4.0-74 
14-Se 


-Sep-1984 12: 
i Define storage for this module that must be global 
OBAL 
acc_value, ' ACCESSED value 
fprot_ value, ' FILE_PROTECTION vaiue 
Label-value : VECTOR(2), ' LABEL Label 
vprot_ “value, ' PROTECTION value 
retmin _value : VECTOR nS), ! Minimum retention period 
retmax_y alue : ! Maximum retention period 
user *ySlue : VECTORES ! USER 
window_value; ' WINDOWS 


1:55 
9:22 CLIUTL.SRCJSETVOLUME .832;1 
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§ i Define own storage for this module 

7 OWN 

7 flags : BITVECTOR ! Qualifier flags word 

7 df lags : ITVECTORE j. i DATA_CHECK flags word 

7 yser (ee abe VECTOR Bs.ve ' Plac to t usern 

75 y TORT v vebRs s.volnane BYTE) Place to, store old Label 
i buff er SE 12,8 | Place ‘A home b Lock 

4 acc, tne si YTE, } increnent te se LRU Limit 

7 c mene ! Channel tor "301 10W 


result_file : VECTORCnam$c_maxrss,BYTE), 


NAM : SNAM (RSA = result_file, 
RSS = nam$c_maxrss), 


a 


UMPwn— 


kt ek et tt a a = a 1 + 1 


e FAB : SFAB (DNA = UPLIT BYTE ( E00 /OJINDEXF.SYS') 
is DNS = ZCHARCOUNT ('CO.OJINDEXF.SYS'). 
P FAC = (get. put, bio), 
P 9 SHR = My - upi iS, 
P 0290 NAM = 

91 FOP = ufo); 

92 
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GLOBAL ROUTINE set$volume : NOVALUE = 


Functional description 
i This is the main control module for SET VOLUME. It obtains the 
; qualifiers and, for each volume specificat on, calls the routine 
that actually modifies the volume’s home block. 

; Calling sequence 

: CALL set$volume() 

i Input parameters 

4 none 

' 

! Output parameters 

none 

i Implicit outputs 

none 

i Routine value 

; none 

! 

i Side effects 

' none 

lee 


BEGIN 


LOCAL 

dyn_desc : SBBLOCK(Cdsc$c_s_bin); 

1 

: Check that the image is running with appropriate privilege. 
check_privilege(); 

' 

: , ove the command qualifiers. 


t_quals() 
irene RE RETORRS n 


' 
' For each volume specified, perform the operations requested. 


Sinit p-dyngesc (dyn. desc) 
i$get_ Value(ZASCID "VOLUME’, dyn_desc) 
BEGIN 
LOCAL 
status 


max ral : volatile, 
original_rvn : volatile, 


!' Make desc. dynamic 
i For each volume spec ttted, 


' Total volumes ins 
! Original rvn (this “disk 


c-- a - ee ee 


if 4 | 
1e8Sb=13Re 93:05:33 Fee TUte saeSsefvecome-0$2;1 aoa th 


Ae desc : VECTORE ' Root ey _fesee tocer 
tibuffer : “yecrOR {28,8yYTE), i Place to put root n name 
fsbo: VECTO i Status block for GETDVI 
devchar : tea CD 16SK LENGTH], i Longuere of gevics ghovectertetess 
fined in S$DEVD 


dvi_list : SITMLST_DECL(ITEMS=4); GETDVI item ist. 


the root volume, the total number of volumes, and the volume number of 
the original volume. 


P SITMLST_INITCITMLST = dvi ol ! Set up DVI List 
p (ITMCOD = dvi$ gn Phar, ' Want Pest volume 
Pp BUFADR = root buffer ' name, | 
P BUF SIZ = FALLOCATION(root _buffer), 
P ETLEN = root de sc), 
Pp (ITACOD = dvi volmuber. ! this disk's volume 
Pp BUFADR = original _rvn), ! number, and 
& (ITMCID = dvi _volfount. ' the total number of 
pe BUFADR = max_fvn), ' volumes. 
P (ITMCOD = dvi§ devchar, ' Get the device characteristics 
BUFADR = devchar)); ! to find if mounted foreign. 
root_desc{1] = root_buffer; ! Set up parameter for | 
' later processing, 
P status = SGETDVIW(ITMLST = dvi_List, ! Get the information. 
P DEV = dyn desc, 
10SB8 = iosb); 
IF .status 
THEN status, = .iosb(0); 
IF NOT .s ! If a problem, signal, 
Hig 3 SIGNAL ( status) ' otherwise 


If the device specified is not a Files-11 volume or the on was mounted 
foreign it cannot be modified, so signal an error and exit 


Check if a Files-11 volume was specified 


BEGIN 
IF NOT .devchar(dev$v_rnd) 
THEN 


BEGIN 
LOCAL 
nodisk_desc : SBBLOCKCdsc$c_s_bin); ! descriptor for device 


SINIT_DYNDESC (nodisk adesc): : 
nodisk_desc(dsc$w_length -root_descl ij. ' Length of device name 
nodisk_desc(dsc$a_pointer] = .root_desc(1 i device name 
SIGNAL~ i intern user of error 

(set$_notmod, 1, nodisk_desc, ae pan 
a “false; 


It is a Files-11 device so check if mounted foreign 


PHP DAMMANN & 


ee 


— — as 4 


NAME SOOO wr 


(8 ab a 


WN 
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w 
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If -devchar(dev$v_for] 
HEN 


oreign_desc 
foreign_desc 
SIGNAR 


(set normed. 1, foreign_desc, set$_badfrmt); 
RETURN “false 


SINIT_DYNDESC (foreign_ Sone?: 
f dsc$w_length -foot eHiabe } Length of volume name 


dsc$a_pointer] = .root_desc olume name 


nform user of error 


4 
BEGIN 
LOCAL 
foreign.desc : SBBLOCKCdsc$c_s_bin); ! descriptor for volume name 
d 
4 If everything is alright process the volume set. 
* process_voiume_ perarees Toins 
4 nal _rvn, 
7 ye oS 

ENDS 
a 


- TITLE Yor 
- IDENT WvOee 00\ 


-PSECT SPLITS,NOWRT ,NOEXE ,2 


53 59 53 2—€ 46 58 45 44 4E 49 5D 30 2C 30 SB 80000 P.AAA: ony \CO,OJINDEXF .SYS\ 


-BLK 
00 00 45 4D 55 4C 4F P.AAC: .ASCII \YOL UNG )<0><0> 
100006 09018 P.AAB: LONG 
0000000" 0001 -ADDRESS P.AAC 


-PSECT SOWNS,NOEXE ,2 


00000 FLAGS: .BLKB 4 
00004 DFLAGS: .BLKB 4 
00008 USER_LABEL: 


-BLK 12 
00014 LABEL_BUFF: 
-BLKB l¢ 
68 BUFFER: .BLKB 512 
Y Ae aaa -BLKB 1 
~BLKB 1 
2° LKB 2 
4 CHANNEL: BLKB 4 
8 RESULT FILE: 
-BLKB #55 
7 -BLKB 
0¢ 3 NAM: -BYTE § 
6 -BYTE 6 
FF 4A BYTE <1 
00 8 BYTE 0 


—— - i 


vO4~000 ieee 20:95 YSU SUMesadettake"sbe rene if 


00000000" «ADDRESS RESULT_FILE 


800 


tes 


E C2] 


ee 
nn 
& 
o 
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SOR ORE REE SAS UE OFS SRESPSRE SESAAHSA ESOS ERO SOCAL TCISD 
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00000008 803p4 Tone 8 : 


sPSECT S$GLOBAL$,NOEXE,2 
00000 ACC_VALUE: : | 


-BLKB 4 
00004 FPROT_VALUE: : 
-BLKB 4 
00008 LABEL_VALUE: : 
-BLKB 8 
00010 VPROT_VALUE : : , 
00014 RETMIN_VALUE:: 
.BLKB 8 
0001C sachin eat “1 3 
00024 USER_VALUE: : 
-BLKB 8 
0002C WINDOW_VALUE: : 
.BLKB 4 
.EXTRN CLISPRESENT, CLISGET_VAL‘iE 
“EXTRN LIBSFILE SCAN, CHECK~PRIVILEGE 
“EXTRN SEARCH ERROR, FILE ERROR 
SEXTRN CHECKSOM2, GET_CH HARNELUCB 
“EXTRN LIBSCVT_DfB, LIBSCVT_DTIME 
eEXTRN LIBSTPARSE, PARSE_UICT 
eEXTRN SYSSFAO, EXTE_VALOE 
“EXTRN UIC VALUE, GROUP 
SEXTRN MEMBER, CLIS_IVPROT 
“EXTRN CLI$_ABSENT, SET$_OPERREQ 
“EXTRN SETS"BADFRMT, SETS_HBREAD 
-EXTRN SETS-HBWRITE, SETS MODIFIED 
“EXTRN SETS” =NOHOME . SET$_ROTDISK 
“EXTRN SETS"NOTMOD, SET$-NOTOD 
SEXTRN SETS"READERR, SETS Oy SNOTUPD 
SEXTRN SETS"WRITEERR, SYSSGETDVIW 
.PSECT $CODE$,NOWRT,2 
0004 00000 .ENTRY SETSVOLUME, Save R2 ; 0293 
2 000000006 00 9€E 0000 MOVAB LIBSSIGNAL, R2 ; 
FEBO ¢ 9E 9 MOVAB -336(SP), SP ; 
0000006 FB CALLS #0, CHECK PRIVILEGE ; 0330 
0000000 i re 0 1 CALLS 4&0. EY _00AL LS : 0335 
8 E 1¢ BLEC =Os«aR F 
F8 AD 02060000 8F D0 0001F MOVL § #34471936, DYN_DESC ; 0342 
FC AD D4 7 CLRL  —— DYN_DESC+4 : 
FB AD OF A 18: PUSHAB DYN~DESC ; 0343 
00000000" EF 9F PUSHAB P.AAB ; 
000000006 00 2 Fe CALLS ae CLISGET_VALUE : 
1 i A 28: BLBS 3 
0 AE : 3$: MOVAB oy LAST. $$] THB KPTR ; 0371 
003200 8F p 4 MOVL #327 LKPTR)+ : 
FF68 CD 9E 0004 MOVAB ROOT SBUFFER® ($$1TMBLKPTR) + : 
} 


; Routine Size: 263 bytes, Routine Base: $CODE$S + 0000 


ee I aac ee ee ee ee 5 : 7 
1 | 
SET 1b-se -1984 01:01: AX-11 Bliss-32 V P 14 | 
‘154~9b0 VenSeb-1984 92:09:92 — FekTursneSsevvoume682;1 — o 
| 
8 AD 9 4 MOVAB ROOT_DESC, (S$SITMBLKPTR)+ ; 
| 60 oozE0004 BF a5 ; MOV. —#5015060.. (SSI TMBLKETR)* ; | 
| FO ap F MOVAB OR trea "RVN, ($ TIMBLKPTR) + : | 
8 D D CLRL ($ TIMGLRPTRS : 
| 80 00300004 F pd F MOVL #3145732, (S$SITMBLKPTR)*+ : 
oe as a 3 
80 00020094 Ht 0 : MOVL Sites ($$ITMBLKPTR) + : 
| C AE OE MOVAB DEVCHAR. ($$ITMBLKPTR)+ : 
| 80 7C 0007 CLRQ. ($$ITMBLKPTR)+ ; 
EC AD FF68 if 3 19 ROVAB ROOT BUFFER, ROOT_DESC+4 : 0373 
| a | 
is AE 9F ; ; PUSHAB DVI_LIST ; 
F AD f 0 BA PUSHAB DYNEDESC : 
000000006 00 os Fe SoBe CALLS #8, SYSSGETDVIW : 
98 : 00 BLBC A : 0378 
FF60 CD ¢ 00 MOVZWL OSB. STATUS : 0379 
= 25 6D OOO 4S: BHR ie _ 3a 
62 or FB OAS re CALLS , LIBSSIGNAL ; 
18 3F AE be EO O00A8 6$ BB a HAR+3, 7$ + 0391 
6E 02060000 8F DO OOOAD MOVL Hs 19 36, cNODISK_ DESC : 0397 
04 AE D4 000B4 CLRL NODI : 
6E E8 AD B80 00087 MOVW Sk ES NOD ISK DESC > 0398 
04 AE EC AD 0O 000BB MOVL ROOT “bests NODISK_DESC+4 : 0399 
000000006 a DD 9900 PUSHL #SETS_NOTDISK : 0401 
28 3F 0 AEsC#E b00¢8 7$: BLBC DEVCHAR+3, 9$ + 0407 
6E 02060000 8F 00 000C MOVL «sft LTH 936, FORE IGN_DESC > 0413 
04 AE D4 000§ CLRL FOREIGN +4 : 
6E E8 AD BO 000D MOVW  ROOT_DESC, FOREIGN DESC + 0414 
04 AE EC AD DO OOODA MOVL ROOT” PEScsa. FOREIGN_DESC+4 > 0415 
000000006 8F pp OODF PUSHL #SETS BADFRMT > 0417 
04 AE 9F OOOES 8S PUSHAB FOREIGN_DESC : 
000000006 BF DD QOOEA PUSH ASETS_NOTMOD 
62 4 FB Goro CALLS #4, TAOS TONAL : 
Fo AD BD GOOF 98 PUSHL : Baie 
FO AD DD OOF PUSHL ORIGINAL RVN : 0434 
E8 AD 9F OOOFA PUSHAB ROO D : 0423 
00000000v EF 03 FB OOOFD CALLS #3, PROCESS_VOLUME_SET : 
AO 11 00104 BRB 53 > 0343 
04 00106 RET : 0430 
| 
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ROUTINE get_quals = 

,o 

i This routine interrogates the CLI to get all the qualifiers and 

! values. 

i 

BEGIN 

BUILTIN 
addm, 

cmpm; 


L 
statu 
gene : >’ SBBLOCKLEdsc$c 8 bln); 


Sinit_dyndesc (desc); ! Make the desc. dynamic 


; /ACCESSED 
if cli$present(ZASCID ‘ACCESSED') 
THEN 


BEGIN 
LOCAL privs : $88 — 


! Place to store the process privileges 
{LegsCquat. access] = 


Call SSETPRV to get the current privileges of the process. If the process 
does not have OPER, then signal an error and stop. 


IF NOT (status = Sar wevtener ts = 1, ! Enable 
VADR = 0, ' No new privileges 
PRMILG = = 1, i Get current privileges 
PRVPRV = privs)) 


THEN 
BEGIN 
th status); 
RETURN false; 
IF WOT ‘privsCprv$v.oper 
-privsCprv$v_oper 
THEN 


BEGIN 
SIGNAL (set$_operreq); 
—— N false; 


: The process has the correct privilege, so go ahead and get the value 


acc_value = 3; ! Set up the default 


! If a value was specified, use it; otherwise, use the default. 
IF cli$get_value(ZASCID ‘ACCESSED’, desc) 
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FULUSUS USELESS USI SUSU ST SUSE SUST IT SE SYST STSI STASIS STASIS SIS 


tot oe 
wn 


WV 
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we 


w 
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THEN 
BEGIN 
IF NOT LIBSCVT_DTB(. -desetgscta- Length] 
-descldsc$a_pointerJ, 
acc_value) 
-_ 


EGIN 
SANA, Coes teat: 1, desc); 
RETURN false 


END; 
IF .acc value LSS 8 
vn acc. “value GTR 255 


GIN 
GNAL(set$_syntax, 1, desc, set$_valerr); 
TURN false; 


BE 
$1 
RE 
E 
END; 
END; 


; /DATA_CHECK 
A wane eine: "DATA_CHECK") 


fteg ston data 
if ROT _ feet J stusizascio "DATA_CHECK', desc) 
Oe stinaut detested = 1 
wie cli$get_value(ZASCID "DATA_CHECK’, desc 
IF CHSEGL(. -Geschdectu. length], .descldsc ap 
-gesc dsc$w_length], UPLIT(BYTE( 
Gf lens data_write) = 1 
Use IF CHSEQL(. aecefeecty. Length], . 


YT 
des 
descidsc$w_length], UPLI 

yy df lagsCdata rea 
ELSE IF CHSEQL(.desc dsc$w ~tength}. des 
th PLI 
des 
UPLI 


ELS 


$a 
E 
C 
T 
C 
escldsc$w_leng T 
THEN df lags (data manatees = 1 

ELSE IF CRSEQL( -Geschdsceu. Length], C 
ae =fengthd, T 

ag dflags(data_ noread 


BEGIN 
SIGNAL (set$_syntax, 1, desc); 
hh false; 


: /CNOJERASE_ON_DELETE 
Status = cli$present(ZASCID "ERASE_ON_DE/.éTE"); 
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! Check that value is in range 


788251 


i 
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IF .status NEQ cli$_absent 
THEN 


IN 
flags(qual_erase) = 1; . 
tiege qual_erase_val] = .status; 


FUSVSUSUSISIS 
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iF cli$present(ZASCID "EXTENSION" ) 
THEN 


BEGIN 

flagsCqual_exte] = 1; 

exte yates = 3; 

iF ct Sget_value(ZASCID ‘EXTENSION’, desc) 


BEGIN 
IF NOT BYESE oS _SUMt . Gove teecee..Lengen 
-desc(d 
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/FILE_PROTECTION 

if cl iSpresent (ZASCID "FILE_PROTECTION’) 
BEGIN 
BIND 


65 exte_value) 
268 THEN 
6 N 
568 SIGNAL(set$_syntax, 1, desc); 
233 _ false; 
9 71 IF .exte_value LSS 0 
0 a OR .exte_value GTR 65535 
057 THEN 
0574 BEGIN 
0575 SIGNAL (set$_syntax, 1, desc, set$_valerr); 
0576 RETURN false; 
0577 3 
0578 END; 
0579 END; 
0580 
0 Be 
4 
5 
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ra akeah ah ah sh Ab Ab ab Ab Ab Ab Ad Ab db hb Ab db dbebb bb ebb db dh th ah shal 


POE BS EAHA AAHMAAIIPIPINPIPININY IA NN EBB PN BEB FWA PPINOPONOPUWITD 


9% setpro_mask = fprot_value + 2 : WORD, 

95 34 setpro_prot = fprot_value : WORD; 

3$ 91 flagsCqual_fprot) = 1; 

oS 3 fprot_value = 0; 
600 94 IF cli$present(ZASCID ‘FILE_PROTECTION.SYSTEM') 
601 95 THEN 

O08 38 BEGIN 

yet : setpro_mask = .setpro_mask OR %X'OOOF'; 

605 235 — setpro_prot = parse_class(desc); 

$c IF cli$present(ZASCID "FILE_PROTECTION.OWNER') 


IF ciSpet value (HASCTD "FILE_PROTECTION. SYSTEM ,desc) 


i 
i 


N 1 


“¥b4-0b0 Ven$ep=198e 82:00:82 © LeLiUtesReSsetvoLOme-8s2:1 = P88" (I 


—$—$— ————— SL ) 


| 

| . 

i 603 tp k t k OR %Xx"00FO" 

; setpro_mask = .se 

: 611 $ 4 Tf ciSpet. value(ZASCID. ‘FILE PROTECTION. OWNER’, desc) 
: oi¢ en setpro_prot = .setpro_prot OR parse _class(desc)*4; 
5 614 IF cli$present (ZASCID "FILE _PROTECTION.GROUP' ) 

: 615 THEN 

3 oig 19 4 BEGIN 

3; 61 11 4 setpre mask = .setpro_mask OR %X'OFOO' 

: 218 \¢ 4 l Soet. value (ZASCID "FILE _PROTECTION. GROUP" ,desc) 
; $33 \7 4 THEN setpro_prot = .setpro_prot OR parse_class(desc) “8; 
3; 621 i ; It _.£' *Spresent CEAscie "FILE PROTECTION.WORLD') 

3; 6 § i$ 4 BEGIN 

: 624 8 4 sete O_mask = .setpro_mask OR %X°FO00' 

; 625 19 4 F cliSget. value(ZASCID ‘FILE _PROTECTION. WORLD ,desc) 
5 e : Bese 4 THe setpro_prot = .setpro_prot OR parse_class(desc)*12; 
; 628 06 § eno: 

; ? 9 06 ? 

s 63) oat 5 ; /CNOJHIGHWATER_MARKING 

3 $34 3 status = ep ay "HIGHWATER_MARKING'); 

; 634 0628 -Status NEQ cli$_absen 

: 635 0629 HEN 

af StF FfStae unt tha = 

5 ags(Cqua w 

3 re be $ flags qual” fhw_ waits NOT .status; 

3; 639 06 END; 

: 640 0634 

: 641 36 5 ! 

: pak: § ! /LABEL 

; 64 06 ! 

3; 664 06 3 IF cli$present(ZASCID ‘LABEL') 

3; 645 06 THE 

3 O66 peed 4 cliSget_value(ZASCip "LABEL’, desc) 

: 646 1 shy 

: 648 Rog BEG! 

; 649 064 flagstau L_label) = 

3 630 0664 IF goes d5c$w gt ae GTR vcb$s_volname 

$ $26 $ BEGIN 

3 @ 4 SIGNAL (set$ ghyntex. 1, desc); 

3 $38 8 4 — N false 

3 636 50 Labe f “vatuetO} = odoscidectu. Length); 

: 65 bees Label~ -desc(dsc$a_pointerJ; 

; 658 26 Sinit” “Gyndesc (dese); 

3; 659 5 END; 
; 660 54 

: 661 55 ‘ 

3 668 2$ ' /LOG 

3; 66 5 ‘ 

3; 664 58 
{ 

eas 


| 
| 
flagsCqual_log] = cli$present(ZASCID 'LOG'); : 
| 
| 
| 


2 
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/CNOJMOUNT VERIFICATION 


status = See eT is ibesnee *MOUNT_VERIFICATION’); 
F_ .status NEQ cli$_absen 
HEN 

BEGIN 

{tegsfqual . mntver) = 

iiees qual“mntver at = .status; 


He ee 


; /OWNER_UIC 
if _cliSpresent(ZASCID "OWNER_UIC') 
THEN 


cliSget_ va tue SASCID "OWNER_UIC', desc) 
BEGIN 
LOCAL 
iosb : VECTOR[4,WORD); 


status = SceisPiuciiMest UPLITCWORD(4 jpi8_uic) 
value, 


flegsCqual owner] 
ual _ owner 
1 OT ; 


° 


I10SB = iosb); 
IF .status 
THEN status = .iosb(0); 
If NOT .status 
THEN 


BEGIN 
SIGNAL(.status); 
Sgn false; 


END 

ELSE parse_uic(desc, uic_value); 
END; 

' 


/PROTECTION 
IF cli$present(ZASCID ‘PROTECTION') 
THEN 
BEGIN 
BIND 
setpro_mask = vprot_value + 2 : WORD, 
setpro_prot = vprot_value : WORD; 
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flagsCqual_vprot) = 1; 
vprot_value = 0; 


IF cli$present(ZASCID "PROTECTION.SYSTEM' ) 
BEGIN 
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SNS 


ror 
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e ask R &x'OOOF'; 
F cl iSget. value (ZAScID PROTECTION. SYSTEM’ ,desc) 
= setpro_prot = parse_ class(desc); 
iSpresent (%ASCID "PROTECTION. OWNER ) 


tpro_mask = .setpro 


setere O_mask = .setpro_mask OR %X'OOFO'; 
rec tisget.. value(ZASCID 'PROTECTION.OWNER’ ,desc) 


NNNANNNNNANNNNNNN 
ODWNAMNEWN OOD AUE WI 


my cli$get_value(ZASCID "RETENTION', desc) 
BEGIN 


; 7 4 

: ms 
; 7 f 

: 720 

; : : 4 

: st 

: OF 5 4 THEN setpro_prot = .setpro_prot OR parse_ class(desc)*4; 
: 07 ; 3 IF _cliSpresent(ZASCID "PROTECTION. GROUP" ) 

: 0729 4 BEGIN 

3 0730 4 pote ro_mask = .setpro_mask OR %X'OFOO' 

; 0731 4 F eliSget _value(ZASCID "PROTECTION. GROUP" , desc) 

: ; 8? ¢ 4 THE setpro_prot = .setpro_prot OR parse_ class(desc)*8: 
; 746 97 4 3 If _cliSpresent(ZASCID "PROTECTION.WORLD' ) 

: 74 0736 4 BEGIN 

3 76 0737 4 the ro_mask = .setpro_mask OR %X'F000'; 

: 744 0738 4 F cliSget. value (ZASCTD "PROTECTION.WORLD’ ,desc 

: 745 0739 4 THe setpro_prot = .setpro_prot OR parse_ clseeidesc)*12: 
: 746 0740 3 

3; 747 0741 2 END: © 

He Bee 

: 730 0744 /CNOJREBUILD 

; 752 0746 2 status = cliSprenent (ZASCID "REBUILD"); 

3 755 0747 IF .status NEQ cli$_absent 

; bee $729 THEN EGIN 

; 756 0750 flagsfqual. rebuild) = 1; 

3 for 0751 ene’ qual"rebuild_valJ = .status; 

3; 758 Or 36 

one 

F 761 0755 i /RETENTION 

: 76 0757 2 IF cli$present(ZASCID ‘RETENTION') 

: ree oFa8 THEN EGIN 

: p06 0766 LOCAL temp_desc : Seer 

: 768 0768 flagsCqual_retent) = 

: 770 764 CHSFILL(O, 8, retmin_value); ' Zero minimum value 
: 771 765 CHSFILL(O, + fetmax_value); ' Zero maximum value 
: oF reo 3 

: 774 76 If a minimum value was not supplied, signal an error 

; 0 PA 


71984 12:09:28 — EEUTUTLSSRe sé VOLUME .682:1 


por 
— 
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; 7 773 4 SIGNAL (set$_syntax, 1, desc); 

; 780 774 4 RETURN false; ‘ 
3 f 1 ft? ; 

ag. : 18 ! 

3 ree ak Convert the minimum retention value to 64-bit system delta time format 
sf 0780 4 IF NOT (status = LIBSCVT_DTIME(desc, temp_desc)) 

Se 781 3 THEN 

; 4788 r8¢ & BEGIN 
; 789 7 4 SIGNAL (set$_syntax, 1, retmin_value); 

: 790 784 RETURN false; | 
3 rt 785 4 END 
; a4 ree ELSE CHSMOVE(8, temp_desc, retmin_value); ! If no error, put 64-bit 
3; 078 ! delta time in place | 
: 794 0788 

; 795 0789 ‘ 

; r36 ta | If @ maximum value was supplied, then convert it in the same way. | 
3; 798 344 IF cli$get_value(ZASCID ‘RETENTION’, desc) | 
; 799 079 THEN 
; 800 0794 4 BEGIN 
; 801 0795 5 If NOT (status = LIBSCVT_DTIME(desc, temp_desc)) 
; 802 0796 4 THEN 
; 803 0797 5 BEGIN 

3; 804 0798 5 SIGNAL (set$_syntax, 1, retmax_value); 

: 805 0799 5 RETURN false; 
; 806 0800 5 END 

; 807 0801 4 ELSE CHSMOVE(8, temp_desc, retmax_value); 
; 808 0802 4 END 

; 809 0803 4 

; 810 0804 4! ; 
3; 811 0805 4 ! If no maximum value was supplied, then use the lesser of: | 
3 aig 0806 4! twice the minimum value or 
; 81 0807 4! the minimum value plus one week 
3; 814 0808 4! 

; 815 0809 4 ! 

3 gig 0810 3 

; 817 0811 4 BEGIN 
>; 818 gals 4 LOCAL 

; 819 0813 4 double : VECTOR(2) ! Place for 2*RETMIN 

; 820 0814 4 week_plus : vec Torta], ! Place for RETMIN + 7 
; 821 0815 4 one_week : vectont 

3; 8 4 B16 4 INITIAL (2X'D7 BCOQO: ! Binary for 7 days 
: 8 817 4 IX"FFFFFAZE'S; 

3 4 818 4 aoentee retmin_value, retmin_value, double); ' Get 2*RETMIN | 
; tH B19 4 ADDM(2, one_week, retmin_value week plus); ! and RETMIN+7 
: 826 0820 4 IF CMPM(2, double, week_plus) GTR i compare... 

; 827 1 4 THEN CHSMOVE(8, double retmax_value) 

3 f § 4 At CHSMOVE (8, week_plus, retmax_value); 

3 4 END; 

; He 5 

3 is $ /CNOJUNLOAD | 
: 33 : status = cli$present(ZASCID "UNLOAD'); 
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| 
3 9 IF .status NEQ cli$_absent 
: ne | 
; 5 g fess qual_untJ 
: re ¢ iiges qual"unl on = ,status; 
: B28 ae 
ae rc OB38 § j /USER_NAME | 
i 846 0 2 IF cliSpresent(ZASCID 'USER_NAME) | 
3 ef 4) THEN 
3 8 § BEGIN 
3; 849 084 1 eastquel username] = 
3 850 O84 IF NOT cliSget_ Te eecHASéID "USER_NAME', desc) 
; 83¢ OB4g 4 BEGIN 
; 85 0847 4 LOCAL | 
3 S2e 0848 4 pi list : SITMLST Ad: (ITEMS = 1), 
: 855 0849 4 VECTORC4, WORD 
H 528 P 0850 4 SITMLST. MITCITALST s pig! 
3 32 P 0851 4 (ITMCOD = jpiS_ sae Tin 
; 858 P eth) 4 BUFADR = user_Label, 
; 859 P 0853 4 BUFSIZ = hacss _ownername, 
; 860 0854 4 RETLEN = use valuet0))); 
: 861 p08ss 4 status = SGETJPIWCITMLST = "jp i list, 
: 862 0856 4 10SB = Os): 
; 86 0857 4 If .status 
3: 864 0858 4 THEN status = .iosb(0); 
: eee + $4 : if NOT .status | 
; 867 0861 § BEGIN | 
; 868 Bag 5 SIGNAL(.status); | 
: yt oB0? ? RETURN false; | 
; 1a Oss ? user_value(1] = user_Label; 
fo my as | 
3 372 i 2 Nagi eoetesocta tengenl GTR hm2$s_ownername | 
; 4) 0871 BEGIN | 
; 878 pare SIGNAL(set$_syntax, 1, desc); 
: 79 bah2 i A N false; 
; 1 0875 4 user svaluet03 = odeschgectu. Length]; 
3 g 0876 4 user “valuel? descldsc$a_pointerd; | 
; oe? 4 Sinit. dyndeec (desc): 
885 ih END; 
; 881 2! | 
: 888 g § | /winoows | 
: 90 if cliS$present(ZASCID ‘WINDOWS') 
: 891 5 THEN 
; 92 0. BEGIN 
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vindovevala winéguss 21; 
n 
IF Tpnetispet. vyalue(ZASCID "WINDOWS', desc) 


BEGIN 
IF NOT LibScvt_dtb(. sdesclascta_ Length] 
dsc$a spointerd, 
Y] nb say value 


RANLSSES 


Oo 
uw 


THEN 
BEGIN 
SIGNAL (set$_syntax, 1, 
foe false; 

IF window. value LSS 7 

on window. value GTR 80 


desc); 
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oO 
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BEGIN 
910 904 519A Coors "gana 1, desc, set$_valerr); 
911 905 RETURN N false 
a4 0906 END; 
91 0907 END; 
914 908 END; 
915 909 
916 910 RETURN true; 
917 0911 END; 
-PSECT SPLITS,NOWRT,NOEXE,2 
44 45 53 53 45 43 43 41 00020 P.AAE: rt} ineperee : 
010E0008 00028 P.AAD: .LONG 1769472 3 
vopgoony” 00 f ADDRESS P.AA 3 
44 45 53 53 45 43 43 & 0030 P.AAG: .ASCII SESE 3 
10E000 00 P.AAF: .LONG é 
0000000" 0003C eADDRESS P.AAG é 
00 00 48 43 45 48 43 SF 41 54 41 44 00040 P.AAI: Ze" Meaty citrate 3 
010EOO0A onek P.AAH: . 17694 3 
00000000" 00050 HODRESS P AAI 3 
00 00 48 43 45 48 43 SF 41 54 41 44 00054 P.AAK: rt Meaty SCE Neo eee 3 
ah 4443 Bne0 P.AAJ: . ; 
00000000' se) KODRESS P . AAK 3 
00 00 48 43 45 48 43 SF 41 54 41 44 QO 74 P.AAM: .ASCII \DATA GRECKN<O><O> ; 
4 99 ry 4 P.AAL: .LONG 17694730 5 
0 9" 78 DDRESS P. 3 
45 54 49 4! P.AAN: et mucho ; 
44 41 45 52 P.AAO: .ASCII \READ\ 3 
45 54 49 52 57 GF 4E P.AAP: . ) \NOWRITE\ 3 
44 41 45 S52 4F 4E P.AAQ acne \NOREAD\ 3 
45 54 45 4C 45 44 SF GE GF SF 45 53 41 52 $3 98 P.AAS eASCII \ERASE_ON_DELETE\<0> $ 
91 000 A&B P.AAR: .LONG 17696735 3 
) 9 ADDRESS P.AAS 3 
00 00 00 4E 4F 49 53 4E 45 54 4 P.AAU: ASCII  \EXTENSION\<0><0><0> 3 
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\FILE. PROTECTION. GROUP\<0><0><0> 
17694741 


S P.ABI 
\FILE_PROTECTION. GROUP\<0><0><0> 
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\FILE_PROTECTION.WORLD\<0><0><0> 
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ACF 
\PROTECTION. SYSTEM\<0><0><0> 
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ADDRESS P.AC 


“ASCII 
LONG 


ACH 
\PROTECTION.SYSTEM\<0><0><0> 
17694737 


»ADDRESS P.ACJ 


ASCII 
«LONG 


\PROTECTION. OWNER\ 
17694736 


eADDRESS P.ACL 


ASCII 
~LONG 


\PROTECTION. OWNER\ 
17694736 


eADDRESS P.AC 


ASCII 
LONG 


-ACN 
\PROTECTION.GROUP\ 
17694736 


eADDRESS P.ACP 


ASCII 
» LONG 


\PROTECTION. GROUP\ 
17694736 


sADDRESS P.AC 


ASCII 
«LONG 


\PROTECTION.WORLD\ 
17694736 


»ADDRESS P.ACT 


-ASCII 


-LONG 
eADDRESS 
oA vt 
“ASCH 
-LONG 

-AD on 
oNzeh 


ADDR i 


\PROTECTION.WORLD\ 
a bteu 


FEU ype 


MRETENT JON\<O><0><0> 


DDRESS P 
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“ADDRESS P.ADD 


SET 1b-se Sep-1 AX=11 Bliss-32 V P 6 
vOu-000 VenSeb-198e 92:09:32 Le Ture saeSsevvoLume 682;1 oor 58 
00 00 44 41 4F 4C 4E 55 B4 P.ADF: .ASCII \UNLOAD\<0><0> ; 
01 0 if POADE: “LONG Al 12698 726 ; 
00 00 00 45 4D 41 4E SF 52 45 C4 P.ADH: AerES MUeER 4 NAME \<0><0><0> : 
80 p00 + 080g Oe “ADDRESS PeADH 
00 00 00 45 4D 41 4E SF 52 45 DB P.ADJ: .ASC et yestrts NAME\<0><0><0> : 
giant HH PAT he 2 
00 53 57 4F 46 4€ 4 5 EC P.ADL: Ager * WiNbDys \<o> ; 
010 0 7 F4 P.ADK: .LONG 17694 : 
0 9" FB “ADDRESS PLADL : 
00 53 57 4F 44 GE 4 FC P.ADN: <ASCII \WIND Ous\<0> F 
010600 7 00404 P.ADM: <LONG 17694 v2 : 
0000000' 00408 “ADDRESS P.ADN : 
SETPRO_MASK= FPROT_VALUE+2 
SETPRO-PROT= PROT” VALUE 
SETPRO” MASK= VPROT-VALUE #2 
TPRO- PROT= 


VPROT~ VALUE 
SYSSSETPROL SYSSGETJPIW 
-PSECT S$CODES,NOWRT,2 
OFFC 00000 GET_QUALS: 


“WORD Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 + 0431 | 
5B 000000006 00 9E 0000 MOVAB CLISGET Vat Rit : 
5A 000000006 00 9€ 0000: MOVAB CLISPRE » R10 ; 
59 90000000" EE 3 00010 MOVAB FLAGS, a ; 
“ 0000000" EF 9€E 00017 MOVAB RETMIN_VALUE, R8 : 
3 00000000" EF 3 OO1E MOV P.AAD, R7 : 
E 8 C2 000 SUBL2 #40, §P : 
20 AE 0200000 aF 00 00 MOVE #34471936 DESC + 0448 
ss DD 09 PUSHL BS + 0453 
6A or FB 0 CALLS #1, CLISPRESENT : 
6 0 00 BLBC RO. : 
6 02 88 000 BISB2 #2. FLAGS > 0457 
18 AE 9F O003E PUSHAB PRIVS + 0466 
1 DD 04 PUSHL ; 
7E 1 7D 0004 mMOVa. #1, =(SP) : 
000000006 90 4 F 046 CALLS Ts SYSSSETPRV ; 
88 6 5 p 9 BLBS TATUS, 1$ ; 
04C€ BR ase ; 
09 1A AE G2 E0 6 1$: BBS PRIVS+2 : 0472 
000000006 F p 8 PUSHL aserS. NEM : 047 
EC As 88 0 28: MOVL #3, ACC_VALUE ; 0482 
20 AE F PUSHAB pk 3 048 
A? OF PUSHAB : 
68 Q FB CALLS + SLISGET VALUE ; 
; BLBC F 
AS SF 00074 PUS i evALue + 0490 
AE 0D 00077 PUSHL ce > 0491 
43 AF C O007A MOVZWL DES > 0490 
000000006 0 03 FB O007E CALLS #3, Ciasevt_p1e : 


2 
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03 5 BLBS «RO, 4$ 
outs 5S 3$: BRW 
50 EC ag 48: OV ACC_VALUE, RO 
050 1 1 5$: BRW 8 
OOOOOOFF 8F 20 p} 3 é$: cHPL R0. #255 
24 A? 9F 0009D 7S: PUSHAB P.AAH 
A 1 re A CALLS #i, FLISPRESENT 
D 0 A BLEC = RO, 128 
69 4 88 OO0A BISB2 #4. FLAGS 
30 AE F OOOA PUSHAB DESC 
A? 9F QOOAC USHAB P.AAJ 
68 3 F AF CALLS #2, CLISGET_VALUE 
06 ; B BLBS RO, &$ 
04 a9 4 0B BISB2 #4. DFLAGS 
48 11 00089 BRB 12$ 
20 AE 9F 000BB 8$: PUSHAB DESC 
4C «A? OOF O08 PUSHAB P.AAL 
68 08 FB OC CALLS #2, CLISGET_VALUE 
3¢ 00C4 BLBC =._«aRO,. «128 
54 20 AE 3C 000C7 MOVZWL DESC, R4 
54 AT 24 «BE 34 9 00C8 CMP CS R4, @DESC+4, P.AAN 
04 a9 04 a8 00003 BISB2 #4, DFLAGS 
211 90007 BRB 
5c A? 24 «BE 34 29 9009 9$: CPCS R4, @DESC+4, P.AAO 
04 a9 02 a8 ie BISB2 #2, DFLAGS 
D4 11 OO0ES BRB 4S 
60 A7 24 «BE 34 29 QOE? 10S: CPCS R4, @DESC+4, P.AAP 
04 a9 8 as OOEF BISB2 #16, DFLAGS 
£6 11 OOF 3 BRB 3 
68 A? 24 BE 34 29 O0F5 11$: CPCS R4, @DESC+4, P.AAQ 
04 Ad OB as OOFD BISB2 #8, DFLAGS 
88 11 91 1 BRB 8$ 
0080 C7 9F 001 3 12$: | PUSHAB P.AAR 
6A 1 FB 91 CALLS #i, CLISPRESENT 
56 0 DO O010A MOVL RO. STATUS 
000000006 &F 36 : 91 ; CPL STATUS, #CLIS_ABSENT 
01 «Ad l 88 00116 BISB2 #16, FLAGS+1 
0; ag 01 05 F 11A INSV STATUS, #5, #1, FLAGS#1 
0094 9F 00120 13$: | PUSHAB P.AAT 
6A 1 Fe 124 CALLS #i, LISPRESENT 
46 0 ; 107 BLEC. —_—«aRO. 
69 08 8 102A BISB2 * FLAGS 
000000006 00 — i D MOVE #3, EXTE_VALUE 
ooas 5 F 00137 PUSHAB P.AAV 
Fe 1 CALLS #2, CL SGET_VALUE 
F i 1 F BLBC =OséaR 
000000006 F 0014 PUSHAB EXTE VALUE 
AE DD 00147 PUSHL DESC? 
7E AE 3C OO14A MOVZWL DESC, -(SP) 


Se See Se Se Ge Se Se Ge Ge Ge Fe Ge Se Ge Ge Ge Se Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Se Ge Fe Fe Se Se Fe Se Se Ge Se Se Se Ge Be Ge Ge Ge Se Ge Se Ge Ge Fe Ge Se 


‘ ] 
| 
8| 
2 “11 Bliss-32 V4.0-74 Page 28 
| ~300n 138% 95:89:33 CeTUTL SRE ISETVOLUME B82: H 
, 
vOe~060 FB 001 CALLS #3, LIBSCVT_DTB 
000000006 69 1 Bes BY * 0571 
0434 $1 901 GOVL -EXTE.VALUE, RO : 
50 000000006 198 148: ROY XTE VALUE , 
WS iss, fet esr 
M5 bt Ole? Ios: EMPL RO, #6 pie 
OQOOOFFFF  8F 22 8. Bo BcrR 13g ; 
00coO C7? OF 176 178: PUSHAB bj. CLSPRESENT : 
03 i EB 00177 BIBS RO: Fac 
a 0087 17 Bise2 #16, FLAGS : 0592 
69 i 123 WS: aL. FPROT. VALUE 0804 
000 co oF H CALLS ai. CLISPRESENT i 
? i abs BIs62 #15, SETPRO,MASK : 8235 
F2 AB 0191 PUSHAB DES 3 
0160 Ch 9 00194 CALLS” #20 CLISGET_VALUE : 
eee ay one osm 
* 20 AF SF O0I9E CALLS #1, PARSE_CLASS : 
00000000v EF gh fe Sota move RO. SETPRO_PROT * 9601 
, P. : 
mi one0 rr it 18 TALES” ie CLISPRESENT ~- 
38 50 £9 0018S ae: 40, SETPRO_MASK ; 0605 
rf F 88 00186 BIs82 #240, : 
va BD OAR OOF 00188 PUSHAB DESC. : 
120 CF 9F 018 CALLS” #3. CLISGET_VALUE é 
0 iC CALLS e. st -  nsns 
68 96 FB pore BLBC RO, 208 ; 06 
or oe 4 : 
cenperpe, | 19 ce oie mutt RO, SETPRO_PROT + 0608 
ABH ; 
ne eee c? Fe OO1DD CALLS” i + CLISPRESENT pa 
33 30 £9 OOlE Biss2_ #15, SETPRO_MASK#1 : Dele 
PS oe RPE Rik ie Lia 
0180 2 FB si CALLS #8, GL JSGET_VALUE ee 
1F : 
e 0 4 i 1f? CALS. Hi parse CLASS 
— oe 3 te post Bicu2 RO’ SEfPRO_PROT 0615 
L ; 
rr aes { 9F 00206 218: cALLS ai, CL ISPRESENT pis 
3 i Fo BF : Bis62, #240, SETPRO_MASK+1 : 0619 
F 1 
aid cP oF i? CALLS #5. CLISGET. VALUE 
$8 i £9 OOStF BLEC RO, 
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GoSeort98e (1:01:55 ARCH OL ing-52 ys. 0274. oe 
PUSHAB DESC 
#1, PARSE CLASS 
A 8, RO, R 
BISW2 RO, SETPRO_PROT 
228: PUSHAB P, 
CALLS #i, CLISPRESENT 
MOVL RO. STATUS 
CPL TATUS, #CLIS_ABSENT 
BISB2 #64, FLAGS+1 
MCOML STATUS, RO 
INSV. RO, #7. #1, FLAGS+1 
23$: § PUSHAB 


P. 
CALLS #1,  tamamaaa 
BL +f $ 


ed 


BC 
PUSHAB 0640 
PUSHAB 
CALLS #2, SLISGET_VALUE 
LBC. Cté=«éiéRR $ 
ISB2 #30 FLags 
CMPW  3=séDESC, #1 
BLEQU 24$ 
BRW 3$ 
24$: MOVZWL DESC, LABEL_VALUE 
MOVL DESC 4 LABEL VALUE +4 
OVL . DESC 


MOVL #3447193 
L DESC +4 
25$:  PUSHAB P.ABV 
CALLS #1, CLISPRESENT 
INSV RO. #6, #1, FLAGS 
PUSHAB P.ABX 
CALLS #1, CLISPRESENT 
MOVL RO. STATUS 
CMPL STATUS, #CLIS_ABSENT 


6 
BISB2 #1, FLAGS+2 
STATUS, #1, #1, FLAGS+2 


AB 

CALLS #i, CLISPRESENT 
RO 

BISB2 #128, FLAGS 
DESC 


~m 
oa 
oe 
PSez 
or-nmnm 
=~ 


CALLS aS. CLISGET_VALUE 
BLB R 
CLRQ = = (§P) 


PUSHAB 10SB 

PUSHAB P.ACD 

LRQ Ss =( SP) 

CLRL 0 = (SP) 

CALLS #7, SYSS$GETJPIW 

MOVL RO. STAT : 

BLBC STATUS, 27$ 688 

MOVZWL 10SB, StATUS 689 

BLBS TATUS, 29 6 
378: BRW 8S 69 
8$:  PUSHAB UIC_VALUE 69 
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¥O4~000 


24 AE OF O02F PUSHAB DESC 
000000006 00 we 0 fe F is CALLS f PARSE UIC 
6A i re CALLS #i, GLISPRESENT 
eas BE SSERE BREE 308 
01 «Ad Ba 8 00312 30$: B1SB2 #4, FLAGS+1 
FC ag p4 1 CLRL- VPROT_VALUE 
028¢ F 0031 PUSHAB P.AC 
6A 1 Fe 1D CALLS #1, CLISPRESENT 
1F 0 BLBC 
FE AB F 88 BISB2 #15, SETPRO_MASK 
o2ks CP OF O085A PUSH ESE 
6B 98 FB 0 E CALLS 2, GL ISGET_VALUE 
OE i 1 BLBC RO, 31$ 
20 AE SF 00334 PUSHAB DE C 
00000000v EF oN FB 0337 CALLS #1, PARSE_CLASS 
FC AB g 2 0 : MOVW RO, SETPRO_PROT 
02c0 C7 9F 00342 318 PUSHAB P.ACK 
6A gi FB 00 46 CALLS #i, ¢ SPRESENT 
23 0 £9 0034 BLEC =OéaR 
FE AB FO BF 88 0034C BISB2 #240, SETPRO_MASK 
20 AE F 00351 PUSHAB DESC 
0208 C7? 9F 00354 PUSHAB P.ACM 
6B y Fe 0358 CALLS 2, CLISGET_VALUE 
11 F 0358 BLBC =séaR $ 
20 AE SF 0035E PUSHAB DESC 
00000000v EF 01 FB 00 61 CALLS #1, PARSE_CLASS 
0 10 C4 00368 MULL . 
FC AB 50 AB 00 6B BISW2 RO, SETPRO_PROT 
ee ad o rs tt anny TiC CL ISPRESENT 
3 0 09 76 BLBC = RO. 3:3 
FF <3 OF 5B 0379 BISB2 #15, SETPRO_MASK+1 
20 AE 9F 0037D PUSHAB DESC 
0308 C? 9F 00380 PUSHAB P.ACQ 
Tt an oe elie 
20 AE SF 0 A PUSHAB 
00000000v EF 1 £ CALLS #1, PARSE CLASS 
; 0 0 0 ASHL ; RO, RO 
, FC AB A 98 B1SW2 ETPRO_PROT 
»~ ™ ) a tH eons tit GL ISPRESENT 
24 0 ; A BLEC =—._«aRO. 
FF OAS FO. BF Ab BISB2 #240, SETPRO_MASK+1 
0383 CP OF DO8AE PUSHAB racy 
8 BB BSE fyseer me 
0 AE OF PUSHAB D 
00000000v fF . f f CALLS #1, PARSE LASS 
50 C ASHL. #12, RO, R 
FC OA C BISW2 RO, SETPRO_PROT 
0348 : OF OO3CA 34$ PUSHAB cw 
6A 1 FB OO3CE CALLS #1, CLISPRESENT 
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6 0 »D MOVL RO, STATUS : 
000000006 af 6 cHPL giArus, #CLI$_ABSENT t 0747 
02 Ag 0 BISB2 #16 pLAGS+2 ; 750 | 
01 05 6 F INSV STATUS, #5, #1, FLAGS+2 + 0751 
035¢ OF 35$:  PUSHAB P.ACY + 0757 
6A 1 Fe CALLS #i, CLISPRESENT : 
69 0 BLBC RO, ; 
01 «a9 oi 8 BISB2 #1. FLAGS+1 + 0762 
00 6E 0 C MOVCS #0. (SP), #0, #8, RETMIN_VALUE + 0764 
00 6E 09 2c MOVCS #0, (SP), #0, #8, RETMAX_VALUE + 0765 
20 AE OF PUSHAB DESC + 0770 
03 OF PUSHAB P.ADA ; 
68 ; E CALLS #2, GLISGET_VALUE 3 
0 BLBS RO, 36$ ; 
016D BRW $ 
18 AE OF 36$:  PUSHAB TEMP_DESC + 0780 
24 AE OOF PUSHAB DESC F 
000000006 90 F CALLS , LIBSCVT_DTIME F | 
i sus iadah Vis : 
3 DD PUSHL R + 0783 
$6 11 BRB 38$. 3 
68 18 AE 8 28 37$:  MOVC3. #8, TEMP_DESC, RETMIN_VALUE + 0786 
0 AE OF PUSHAB DESC + 0792 
0384 C7? OF PUSHAB P.ADC : 
68 92 FB CALLS #2, CLISGET_VALUE : 
18 AE oF PUSHAB TEMP_DESC + 0795 
24 AE OF PUSHAB DESC ; 
000000006 90 F CALLS #2, LIBSCVT_DTIME F 
de e BCBS erkToge $ : 
08 ni oF ss PUSHAB RETMAX, VALUE : 0798 
08 As 18 AE A ee 38: MOVC3 #8, TEMP_DESC, RETMAX_VALUE + 0801 
6 40$: BRB 46$ ; 079¢ 
6E D718¢000 F p 41$: MOVE #~686047252, ONE_WEEK : 081 
04 A FA/F F CvTW fhe 9, ONE WEEKT4 é 
10 AE § 68 C ADDLS RETMIN_VALUE, RETMIN VALUE, DOUBLE ; 0818 
14 AE 06 AB D MOVL §RETMIN“VALUE+4, DOUBLE ; 
4 «OA 14 AE D ADWC DOUBLE LE ; 
08 AE 6 6— C ADDL3 ONE WEEK, RETMIN VALUE, WEEK_PLUS > 0819 
C AE 04 A 09 MOVL RETAIN VALUE+4, QEEK_PLUS : 
= 2 4 AE D ADWC ONE_WEEK, WEEK_PLUS 3 
5 0 cE MNEGL #1, > 0820 
Oc AE 16 AE b CMPL 00 LE, WEEK_PLUS ; 
F 19 BLSS 4 3 
08 AE 10 Ae Ot Pepe DOUBLE. WEEK. PLUS : | 
fF fh BEQL rit i 3 
4 1F BLSSU 44$ ; 
D 43s: INCL = : 
D 4 $: INCL =R : 
D 44$: TSTL ; | 
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3 
1 ~se0n 130 1:01:55 AX-11 Bliss-32 V4.0 


14-Sep-1984 12:09:22 CLIUTL SRC JSETVOLUME. 5 2:1 
000000006 00 93 Fe 0575 CALLS "3, LIBSCVT_ TB 
14 f 7¢ BLBS 
20 AF F 0057F 538: PUSHAB D Pe 
0 DD 2 54$:  — PUSHL 
007710FA 8F DD 005 PUSHL #7803130 
000000006 00 03 FB 3 A CALLS #3, LIBSSIGNAL 
3 1 233: Bea 
07 18 AS D1 39 6$:  CMPL §WINDOW_VALUE, #7 
0A 19 0059 BLSS 
00000050 8F 18 AB D1 00599 CMPL § WINDOW_VALUE, #80 
1A 15 005A BLEG 
0077116 8F pd OA 57$ PUSHL #7803370 
4 AE 9F OO5A PUSHAB DESC 
01 DD 005aC PUSHL 
007710FA 8F DD OODAE PUSHL #7803130 
000000006 00 04 FB 005B4 CALLS #4, LIBS$SIGNAL 
04 11 00588 BRB 59$ 
50 01 00 0058D 58s MOVL #1, RO 
04 005c0 RET 
50 04 005C1 59$ CLRL RO 
04 005¢3 RET 


: Routine Size: 1476 bytes, Routine Base: S$CODE$ + 0107 


dD 3 
VeeSep-198e 12:09:22 EeLTUTL*SRe SET VOLUME -682;1 


; 333 0318 1 5 process_volume_set (root_desc, original_rvn, max_rvn) : NOVALUE = 
; 921 914 
3 9 ¢ 0915 '++ 
3; 9 218 : 
3 3 ¢ 4 Find each volume in the volume set and modify it. 
; § ° 318 ! Inputs: 
3 9 920 : root_desc = descriptor of root volume 
; 928 921 : original_rvn - volume number of original volume 
3 g 9 , ¢ } max_rvn = highest volume number in set 
3s 95) 924 ' Outputs: 
3 9 4 0925 ‘ None. 
3s 9 8 § : 
; 9 9 !<< 
3 939 0928 
3 9 0929 
s Par 0930 root_desc : REF VECTOR; 
; 938 0931 
; 939 O38 
; 940 093 LOCAL 
: 941 0934 status 
: 94 0935 statusé 
; 94 093 saved_fla Ss, ' Saved original flags 
> 944 093 reductd, tlegs ! Reduced flags 
3: 945 0938 his rvn : volatile, 
: 946 343 zose, ves Tonee WORD], SSE yOvE stetys Siok 
3 escl : ° ! Device descriptors 
; 948 0941 desc2 : VECTOR $ : 
; 949 094 bufferl : VECTORL{28.8YTE), ! Device buffers 
; 950 094 buffer2 : VECTOR(128 BYTE) 
; vi_list : LST_DECL =2); q VI item List 
v3) pote dvi_li SITMLST_DECL(ITEMS=2) ! $GETDVI i li 
; 338 bag : é 
: 954 094 ! Do a Little sneaky stuff first. Transfer the root volume's name to the 
; 955 0948 ' Local descriptor. Save the current flag settings, and calculate the 
; 328 ed flags for other volumes in this volume set. 
; 958 0951 desci(0) = .root_desc(0]; ' Set up so we. 
: 959 oa} descilij = bufferi; ! can loop easily 
; 960 095 desc2(1) = buffer2 
; 961 0954 CHSMOVE (.root_descf 0}, 
3 366 Beez ‘ oot desc 1J, 
; 96 B25 buffer); 
; 964 095 
: 965 0958 saved_flags = flags: ' Save original 
; 966 0959 reduced_flags = .flags AND ! The reduced set has 
; 967 B08 (1“qual_erase OR ' only the ERASE 
; 968 961 1*qual_erase_val OR ! and 
; 969 308 1*qual_fhw 0 ! HIGHWATER 
3 a Bei 1*qual_fhw_val); ! qualifiers 
; o76 goes ‘ 
3; 97 i$] ! For each volume in the set, check to see if this is the original, or only 
3: 974 096 ! one of the sister volumes, and set FLAGS sccoreingty. To do this, we need 
; ' to call SGETDVI to see what the volume number is. But I*m getting ahea 
975 0968 $ h l ber i I i head 
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: of myself... 
WHILE true DO 
BEGIN 


Open a file to the disk. 


fab(fab$b_fns] = -Gosc} £0): 
fabLfab$l_fna) = .descilij; 
IF NOT (status = SOPEN(FAB = fab)) 
THEN SIGNAL (set$_writeerr, 


descl, 
Status) 


LSE 
channel = .fabCfab$l_stvj; 


SITMLST_INITCITMLST = dvi_List, 
(ITMCOD = dvi$_volnumber, 
BUFADR = this _rvn), 
(ITMCOD = dvi$_nextdevnam, 
BUFADR = buffer 
BUFSIZ = XALLOCATION(buffer2), 


RETLEN esc : 
status2 = SGETDVIWCITMLST = dvi_List, 
DEV = descl, 
10SB8 = iosb); 
F .status2 


I 
THEN status2 = .iosb(0]; 
IF NOT .status2 

THEN 


BEGIN 
IG Coots _urtteerr. 


descl, 
-status2); 
RETURN; 
END; 


i) 
If the OPEN was successful, then process this 


IF .status 
THEN 


BEGIN 

IF_ .this_rvn NEQ .original_rvn 
THEN flags = .reduced_flags; 

IF .flags NEQ 0 

THEN process_one_volume(desc1); 
flags = ,saved_flags; 


SDASSGN(CHAN = .channel); 


Sep-1 
~Sep-1 


3c 12:09:28 Eetiut snes 


! Error accessing 


! this disk 
! for this reason 


Get the next volume in the volume set, even if we can't use this one. 
If we can't even get to the next volume, then hang it up. 


Set up DVI List 
want current 
volume number, 
next volume 
name. 


Get the info. 


If an error at 
this point, we 
can't proceed, 
since we don't 
know which RVN 
we're playing with 


volume. 


If not original disk, 
use reduced flags. 
If anything to set, 


o it. 
Restore flags 


Deassign the channel 


VO4~060 


F 3 | 
1er8ep= 1882 93:05:33 | eee bT SAe ise fvbcume o$2:1 Page 3S 


; 1033 1 

: ; ¢ } 4 ; H Perform volume rebuild, if requested. 

3 ; } $ 4 if zetetus AND ( .this_rvn EQL .original_rvn ) 

; } 5 : ; [fg flegsCqual rebut ld2 AND .flagsCqual_rebuild_val] | 
Be BE -_ 
; 1048 1035 4 EXTERNAL ROUTINE | 
; : z : : 2 stand_alone_rebuild; ! Perform volume rebuild 

3 1943 § 4 LOCAL chan: WORD; | 
: 1009 1946 4 status = SASSIGN( DEVNAM=desc1, CHAN=chan ); 

: 1048 1041 4 If NOT .status 
: eo Hb ok ? THEN SIGNAL (set$_openout, 1, descl, .status, 0); 

3 192) 1be4 ? stand_alone_rebuild( .chan ); ! Do the rebuild. 

: 1988 | 4 status = SDASSGN( CHAN=.chan ); 

3; 1054 1047 4 IF NOT .status 
; 1055 1048 4 THEN SIGNAL (set$_closeout, 1, desci, .status, 0); 

3 1928 1049 4 | 
Be 188 ~ | 
4 | 
; 1059 Io¢ IF .this.rvn EQL .max_rvn ! If end of volume 

; 1999 1933 THEN EXITLOOP; ! set, leave 

: ISe6 1055 CHSMOVE (.desc2(0), ' Now switch to the 

3: 106 1056 uffer ! next volume in this | 
> 1064 1057 bufferl); i volume set. 

> 1065 1058 : 
We IRS | 
: 1068 1061 i For this volume set, if the /LABEL flag was set, then we must also 
3; 1069 1066 ! modify CO,OJVOLSET.SYS on the root volume. Note that ODS1 volumes | 
3 1979 199? } cannot be volume sets so will fail this test. | 
; O76 1065 IF .max_rvn GTR 1 

3 107 1966 AND .flagsCqual_ label) 

3 Ione +t THEN modify_volset(.root_desc); 

: 107 1069 2 RETURN; 

; 1079 1958 END; 


.EXTRN SYSSOPEN, SYSSDASSGN 
SEXTRN STAND _ALONE_REBUILD 
eEXTRN SYSSASSIGN 


OFFC 00000 PROCESS_VOLUME_SET: 


| 
5 00000000" EF 9E 9 MOVAB FLAGS Ri ; 
E rece CE 9 MOVAB -316(SP), SP : 
6 4 AC DO 00 MOVL  ROOT_DESC, R6 : 0951 | 


3 | 
SET 16-Sep-1984 AX-11 Bliss-32 V4.0-7 Pa 7 
954.000 14- ~300 71382 9}: 83; 33 CLIUTL. SRCJSETVOLUME. 5 2:1 ™ cb | 
EC AD 66 0 0001 MOVL  (R6), DESC1 P | 
fe AD OSS RP : HOVAB BUrrER. besc +4 0938 
FF64 «CD be 6 f moves (R6) Sichase BUFFER1 + 0954 
A B D 8 MOVL FLAGS SAVED FLAGS + 0958 
59 6B FFFFOFFF 6 F § BICL3 #61441 FLAGS. REDUCED_FLAGS : 360 
o3B¢ a) EC AD 1$ MOVE DESC1, FABSS : 09 
4 (B FO. AD p MOVL  DESC144, FAB+44 + 0978 
038 B OF F PUSHAB FAB + 0979 
000000006 99 F 43 CALLS #1, SYSSOPEN : 
D A VL = RO STATUS : 
16 E 9 4 BLBS STATUS, 2$ : 
7 bp PUSHL STATUS + 0983 
EC AD 9F 00 PUSHAB DESCI + 0980 
1 0D 00 PUSHL # : 
000000006 8F DD 0005 PUSHL aseTS WRITEERR : 
000000006 00 4 Fe 060 CALLS a4, , LIBSSIGNAL ; 
0224 cB 0394 CB pd 0066 3s MOVL FAB+12 NNEL + 0985 
0 04 AE . 9060 $ MOVAB Dv tere $$] TNBLKPTR + 0996 
H+ oozeoo 8F DO 00071 MOVL #3074660, (SSITMBLKPTR)+ : | 
0 AD 9E 00078 MOVAB THIS_RVN, (S$$ITMBLKPTR)+ : 
0 04 Sore CLRL CseiT LAPia?s : 
H+ 00340080 F 00 443 MOVL #3408000, (SSITMBLKPTR)+ r 
0 20 AE 9E 0008 MOVAB BUFFER ‘ ($81 TMBLKPTR) + : 
80 E4 AD 9E 0089 MOVAB Dest (ssi MBLKPTR) + : 
0 D4 000 CLRL  ($S$ITMBLKPTR)+ F | 
—E 7C 0008F CLRO 30s = (SP) ; 0999) 
7E D4 00091 CLRL = = (SP) ; 
F4 AD 9F 00093 PUSHAB 10SB : 
14 AE 9F 00096 PUSHAB DVI LIST : 
EC AD 9 0099 PUSHAB DEST ; | 
7 ¢ 0009¢ CLRO att : 
000000006 90 FB 0009: CALLS #8, SYSSGETDVIW ; 
8 9 DO 000A MOVL RO. STATUS ; 
07 : 00 BLBC  STATUS2, 4 : 1000 
38 m ik ¢ \00AB MOVZWL 10SB, STATUS2 : 1001 
1 3 E OOAF BLBS STATUS2, 5$ ; 1008 
D Be 4$ PUSHL STATUS : 100 
EC AD 9F 000B4 DES > 1005 
1 0D 7 PUSHL #1 ; 
000000006 8F DD 00089 PUSHL #SET$_WRITEERR : 
000000006 00 FB OOOBF CALLS #4, LIBSSIGNAL ; 
04 cg RET 3 1908 | 
1B 57 DO0C7 S$: BLBC STATUS, 8$ > 1015 | 
08 Ac FC. OA CA CMPL THIS_RWN, ORIGINAL_RVN : i 
REDUCED_FLAGS, FLAGS : 1019 
FLAGS ~ : 1020 | 
DESCL : 1021 | 
PROCESS_ONE_VOLUME : 
SAVED FLAGS; FLAGS : 1032 | 
it SYSSDA SGN g 10C3 | 
stAToS + 1029 | 


THIS_RVN, ORIGINAL_RVN 


Grseo-1964 O1:00:55 YANN OL ing Be y4s0e7eg, 


5 12 F 10$ 
$0 03 AB 4 F #4, FLAGS+2, 108 
B AB 5 £1 OO0F BBC #5. FLAGS+2, 10$ 
— ?C 001 RQ = = §p) 
aa a ee 
000000006 99 4 FB 001 CALLS mS SYSSASSIGN 
¢ D0 001 MOVL RO, STATUS 
16 £8 0011 BLBS = STATUS, 
5 D4 0011 CLRL = = (SP) 
5 po 118 PUSHL STATUS 
EC AD 9F 0011 PUSHAB DESC 
1 0D 001 PUSHL # 
007710A2 8F DD 001 PUSHL #7803042 
000000006 00 5 FB 001 CALLS #5, LIBSSIGNAL 
F 6F 3C OO12F 9$: MOVZWL CHAN, - 
000000006 Q FB 001 2 CALLS #1, STAND ALONE_REBUILD 
E : 3¢ 001 MOVZWL CHAN, = 
000000006 99 FB 001 ‘ CALLS #1, SYSS$DASSGN 
5 ! D 014 MOVL RO, STATUS 
16 E 0146 BLBS STATUS, 10$ 
: D4 0014 CLRL = = (SP) 
5 pp 0148 PUSHL STATUS 
EC AD 9F 00140 PUSHAB DES 
01 oD O13 SHL #1 
0077105A 8F DD 1 PUSHL #7802970 
000000006 00 05 FB 0015 CALLS #5, LIBSSIGNAL 
0c AC FC AD D1 0015F 108:  CMPL THIS_RVN, MAX_RVN 
08 13 0164 BEQL 1$ 
FF64 CD 20 AE E4 AD ’ 0166 MOVC3 DESC2, BUFFER2, BUFFERI 
ret2 31 0166 BRW 1$ 
01 OC AC 01 00171 118 CMPL § MAX_RVN, #1 
: 15 173 BLEG 
09 68 E1 0017 BBC #5, FLAGS, 12$ 
6 DD 00178 PUSHL 
00000000v_ EF 01 FB 0017D CALLS #1, MODIFY_VOLSET 
04 00184 12$: RET 


3; Routine Size: 389 bytes, Routine Base: S$CODES + 06CB 


IEHEECISE USGS WAGUSUENGR WRB Pe a 


3 1 1071 1 ROUTINE process_one_volume (desc) : NOVALUE = 

3 3 107 BEGIN 
a 107 
3 1 1 a lee 
3 1 107 i 
3 1 107 i Find each volume in the volume set and call the routines which 

3 : : q actually modify the data. 
24 107 i Inputs: | 
3 ; ’ , desc - address of volume descriptor 

> | 1 ¢ ' Outputs: | 
3 ; : : None. The volumes and 1/0 database are modified. | 
3 109 8 5 leon | 
> 109% 1 
3 1095 10 LOCAL 

? 1096 1088 Status, | 
3; 1097 108 vbn, ! Place to store vbn 
3 1098 1090 ucb, ! Place to store UCB address 
3 9 +4 1933 cluster; ! Cluster size of volume 

3: 1101 1998 if NOT read_homeblock(cluster) ! If can’t read home block 

; 1198 1094 — SIGNALTset$_nohome) ! then tell the user 

3 110 1095 

3 1104 1938 SE REGIN 

3; 1105 109 status = ! Show that no homeblocks modified yet 

; 1106 1098 INCR vbn hon 2 TO .cluster*3 DO ! Go thru all homeblocks on the volume | 
3 1107 1099 4 BEGIN 
3 1108 1100 4! 

3 1109 1101 4 ! Call the routine that reads, modifies, and writes the homeblock. If 

3: 1110 1108 4 ! successful, set STATUS = 1 

3 1111 1103 4! 

: Wiig 1104 4 IF set_home(.vbn, .desc) 

3 111 1105 4 THEN status = 1; 

3 11146 108 4 If .ods 

3 1115 1107 4 THEN EXITLOOP; ! Finished for ODS1 

3 1338 1198 END; 

3111 11 ! 
: 1118 1110 ! If STATUS = 1, then at least some of the homeblocks were good and were 

3 1119 1111 ! modified. 

: 1120 itis ! 

3: 1121 111 IF .status THEN 

; 1148 1114 4 BE | 
3 ‘ ? 13)? ? : So, go ahead and change the 1/0 database. 

3: 1125 We 4 ucb = KERNEL_CALL (GET amen" aaa channel); | 
: 1 $ BB ; KERNEL_CALL(SET_UCBVCB, .uc | 
3 1128 1120 4 IF i STRNAL tse log) ! If /LOG, tell user 
> 1129 1121 4 THEN SIGNAL (s@t$_modified, 1, .desc); | 
3 11 11 ; END; 
3 1131 11 END; 
711 ¢ 1124 | 
3171 1125 RETURN; 

311 1126 END; 


3; Routine Size: 


53 


E7 


OE 


139 bytes, 


00000000v 


A 
5 000000006 


? 000000006 


? 00000000v 


00000000V_ EF 
03 

54 

28 

3§ 

FODF C5 


6 000000006 


Routine Base: 
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COOoOooooooooooooooo 
DIPS E & 


GOOCCOCSOOOOOoCoooO: 


AXx-11 B -32 v4.0-7. Page 
OBe 93:85:33 | Fe T Obhegsze oe ego. ° 
.EXTRN SYSSCMKRNL 
WOR R2,R3, Rs, RS, R6,R7 ; 
HOVAB  BESYSSCAKRN : 
MOV LIBS$SIGNA i" 6 te ; 
MOV ODS1, R5 : 
SUBL e §p : 
PUSHL ; 
CALLS 1. READ. HOMEBLOCK : 
LBS $ 
PUSHL ia NOHOME : 
CALLS , LIBSSIGNAL 3 
RET $ 
CLRL TUS ; 
MULL3 rte YP USTER, R3 F 
MOVL #1. VBN : 
BRB ; 
PUSHL DESC ; 
PUSHL : 
CALLS ET_HOME : 
BLBC ; 
MOVL =s#}, STATUS F 
BLBS ops1. F 
AOBLEQ 33 : 
BLBC srhrus. 6 : 
PUSHL F 
PUSHL aia F 
PUSHL SP : 
PUSHAB GET_CHANNELUCB : 
CALLS #4, ~SYSSCMKRNL : 
PUSHL UCB ; 
PUSHL uf 3 
PUSHL SP : 
PUSHAB SET_UCBYCB F 
CALLS #4, 7SYSSCMKRNL ; 
¢ #6. FLAGS, 6 F 
PUSHL DESC : 
PUSHL #1 F 
PUSHL users MODIFIED : 
CALLS #3, LIBSSIGNAL ; 


1118 


$8 
os 


3 


K 
Vec$ep-98e $2idore2 Lev iutcssneSsetv 


ze and structure level are determined and stored. 


} Pepe* foter for the FIB in $Q10W 


e Information Block car $Q10W 


i Attribute List for $010 
! Where statistics block is gtored oreer $Ql0w 
oc 


The file size from statistics b 


i Status block for the $al0w 
!' Temporary block count 


issuing a 


Initialize descriptor pointing to 


! to the file info block 


Zero the fib for new info 
Deny read and write access to others 


! Specify file identification 


The attribute we want is the 
block 
It goes into s 


tablk 
! Indicate end of information 


Access the statistics block 


Check if everything Okay 
If not, tell user, go to end 
If okay 


311 1127 1 ROUTINE read_homeblock(cluster) = 

z i yi" 

: 11 § 11 1 i This routine reads the first good home block of the volume. 

3 1140 1131 1 ! It uses $Q10W's because SREAD finds the End-of-File block to be 
3 1141 11 § 1! zero in 9DS1 initialized ¢ sks and thus will not try to read the home block. 
: 1106 1 ? ! } In addition the cluster s 

$1144 1135 1 ! Outputs: 

3 1145 11 § 1! cluster - cluster size 

3 1368 11 1! ods! - 9 => ODS? 

3 114 11 4 1! = $1 

3: 1148 11 B 

3 1149 1140 1 !<- 

3 1329 1141 BEGIN 

TB TES 8 vocu 

; 1183 1144 desc : SBBLOCKEdsc$c_s_bln1, 

3 1154 1145 fib : SBBLOCKLTib$ ~gxtdetel. 

3 1155 1168 atr : OL OER VES TOR -8,BYTEI, 

3 1128 114 stablk : SB8BLOCK(32), ; 

3; 115 1148 file_size : 1 Ae WORD), 

; 1138 1149 tosb': 4,WORDS, 

° OCK, 

; 10 1181 status; ! Status 

: 1196 1188 ! Before we can look at the homeblock we have to find how many blocks there 
3 116 1154 ' are (or the block number or the last block). This is done by 
: 1i2e 133? ! $Q10W to get the statistics block. 

: 1166 1187 descCdsc$w_length) = fibSc_extdata; 

‘ by 24 1138 desc(dsc$a_pointer] = fib; 

3 1169 1160 CHSFILL(O, fib$Sc_extdata, fib); ' 

: 1171 116¢ fibCfibSl_acctl] = fib$m_noread OR ! 

: 106 116 $m_nowrite; 

3117 1164 2 fiblfibSw_fid_num] = .nam{nam$w_ftid_num); 

3 1174 1165 fiblfib$Sw_fid_seq] = .nam{nam$w_fid_seq); 

3 Ee 1196 fiblfibSw_fid_rvn] = .naminam$u_fid_rvnd; 

; 1177 1108 atr(O,atr$w_type) = atr$c_statblk; ! 

3 1178 116 atrlO,atr$w_size] = atr$s_statblk; ! statistics 

3 11 11 9 atr ates aggr s greblk; ! 

Ho He genteel -s & | 

: 1182 Pp 1138 status = $Q]0W (CHAN = .channel ! 

711 P 1174 FUNC = {os ACCESS, 

tes P 1196 os 

. = 

3:11 173 P5 = atr); 

: 11 1178 IF .status THEN status = .iosb(0); ! 

3 1% 117 If NOT status 

3; 1189 1180 THEN SIGNAL(.status) ! 

me OWE ¢ Bly . 

; 1192 11 : file.sizel1] = .stablk(sbk$w_filesizh]; ! The file size is stored 


V4.0-74 
OLUME .852;1 


a4 
= 


file.sizeC0] = .stablk(sbk$w_filesizl]; ! backwards so invert 


O00 
Mw 


NOUS 


' It is possible the homeblock exists so 
Keep reading until we get a block that reads without errors and meets the 
criteria for a homeblock. 


INCR block FROM 2 TO 100 DO 
GIN 


ome momo 


IF .block LEQ .file_size 
THEN 


vuvv0vU 
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IN 
status = $Q]0W (CHAN = .channel, ! Read the virtual ‘block’ 
FUNC = 10s READVBLK, 
10SB = iosb, 
P1 = buffer. ! Put it in ‘buffer’ 
: = 512, ! Get a whole block 
= block); 
IF .status THEN” status = .iosb(0); 
IF NOT .statu 
THEN 
BEGIN 
SIGNAL(.status); 
RETURN false; 
END; 


-bufferChm2$b_struclev] EQL 2 AND 
-bufferChm2$l"altidxlbn] NEQ ° i. 


-bufferlhm2$w_cluster) NEQ ;= 
-bufferlhm2éSw_homevbn] NEQ 0 AND 
- buf ferLhm2Sw_alhomev ni NEQ 0 A 
-bufferlhméSw_altidxvbn] NEQ 0 AND 
-bufferlhm2$w_ibmapvbn] NEQ 0 AND 
-bufferlhm2$l_ibmaplbn] NEQ 0 AND 
ufferlhmé$l_maxfiles]_NEQ 0 AND 
buf ferlhm su_tbnegsiz93 NEQ 0 AND 
-bufferlhm2$w_restiles)] NEQ 0 AND 
checksung (buffer. SBYTEOFFSET(hm2$w_checksum1)) AND 
ween (buffer, SBYTEOFFSET(hm2$w_checksum2) ) 
BEGIN 
ods! = 0; ! This is an ODS2 volume 
cluster = .bufferChm Su. clyste ri; ! with this cluster size 
if .fla gsCqual. access] T If /ACCESSED was specified, 
THEN ! compute the value to add 
BEGIN ! to the LRU value in the VCB 


ince = 0; 
IF cace _value GTR .bufferChm2$b_Lru_lim cH 
_THEN act_inc = .acc_value - .buffer[hm2$b_lru_lim); 


EN 
RETURN true; 


ND 
ELSE IF 
-buf ferChm1$w ~fluster! eg EQL ohals<. levell AND 
. buf ferlhmi$w cluster ND ~ 
. buf ferlhmi$l~ bagei bn bn Ah AND 
buffer pig _maxfiles] NEQ 0 AND 


HEeseo-t9ge 01:01:55 yaReHt Bling 32 ys.0=742, 


! If we have not passed the end of file 


—_———- _ — . ~—-y 


a 3 
16-Sep-1 AX-11 Bliss-32 V4.0 Page 43 
Sb avobo 18: Sep- 138 9}: 83: 33 etTUTLe SR RCISE SETVOLUME . Se; 31 ° (10) 
; 1250 1241 buf ferlhal Sy ibmapsize] NEQ 0 AN 4 
3; 1251 1 tS check —_ buffer, Bev fEor FSET (hm1 Sw_ checkoun}}} AND 
: } ¢ } rh checksumd(buffer, SBYTEOFFSET(hm1$w_checksum2) ) 
> 1254 1245 BEGIN 
3; 1255 1 re é ods ; et! ' Volume is ODS1 
: 1 $ 124 .clus 21; ! Dummy in a cluster size of 1 
3 3 1 rk 6 i "Tieecteust. access) ! if /ACCESSED” was specifi ed, 
; 1258 124 8 THEN ' compute the value to add 
; ; 4 : 2 f a ve ! to the LRU value Ay the vCB 
> 1261 1 28 7 IF race _value GTR .bufferChm1$b_lru. Lim mn) 
; ! 66 ! a? 7 i a inc = .acc_value - .bufferfhmi$b_lru_lim); 
: 64 29 é RETURN true; 
: 1 08 1 2§ 4 END; : ! End of reed success block 
; 126 1 38 END; ! End of INC block 
; : o8 ' 23 , END; ! End of file accees block 
5 1270 1261 i If here, then no good homeblock was found. Return a value of FALSE to 
: ; 4. ' $¢ show that. 
; 1598 15ez RETURN false; 
3 1274 1265 1 END; 


-EXTRN SYS$Q10W 
O3FC 00000 READ_HOMEBLOCK: 
ORD 


WW Save R2,R3,R4,R5,R6,R7,RB,R9 : 1127 

59 900000006 00 9€ 0000 MOVAB SYS$QI0W, RO - : 

2F 900000006 60 96 9001 MOAB ACE SVALUE. Re 

$6 oowooga EP ge oni? © Rova BUFFER, RS 7 
5c AE 2 5 0 5 MOV re. DESE > 1157 
60 AE 3c.)hCié«‘é«CA E 6 MOV AI » DESC+4 : 1158 
20 00 6E : 00 ¢ 6 mMovCS #0, (SP), #0, #32, FIB : 1160 
AE 401 8F 3¢ 000 MOVZ2WL #1025, FIB + 1162 
ao OM 3% ‘eB MOV hansa Fipse t Hee 
9 AE 0009 Sr p it MOVL #589856, ATR ; 1168 
A C AE : at MOVAB STABLK, ATR+4 + 1170 
4 AE D CLRL = ATR : 1171 
7E 04 4 CLRL = = (SP) : 1177 

30 AE OF 6 PUSHAB ATR ; 

7E ¢ CLRQ = =(SP) ; 

7E B CLRL = = (SP) ; 

70 AE OOF SHAB DESC ; 

7E 7C¢ CLRQ = =(SP) ; 

24 AE OOF PUSHAB 1088 F 

32 OD SHL @# 3 

0204 ¢ DD PUSHL CHANNEL ; 

E 04 CLRL. = = (SP) ; 


————————EEEE 


a - P bb 
-$ep-1984 01:01: AX=11 Bliss<32 V4.0<742 age 
y ivOb0 12286-1382 94:03:33 CeTUTL SReISET VOLUME. 69251 (10) | 
F $ CALLS #12, SYS$Q10W 
; o of 7 BLBE er ATs ; + 1178 
3 04 =A i 7 MOVZWL 10SB, STATUS tere 
1 a We 
000000006 00 EB 1 ie CALLS He LIBSSIGNAL ; 2 
01 ) ra 
re) ee ea Me 
6E i b} : 3S: cMPL BLOCK, FILE_SIZE ; 
9A BRW 7$ ; 
“TTB « me cia i 
3 00 O01 USHL BL O¢ a ; 
mom Eh mae Be : 
e a Bonn CLRQ. = =( SP) ; 
a a : 
wn RS BE Bile, | 
bE D4 0083 CLRL. =(SP “enna ; 
69 C FB 000B CALLS #12, $y$$0 ; 
3 a a 
8 04 AF Re ita MOV ZL 10sB. STATUS seen 
83 OD iz 7H ita CMPB UFFER+13, #2 ; 1210 

08 oR OD a9¢eD PSTL  BUFFERS8 S421 

aL : 

OE ‘ 8 34 rst UFFER+14 1212 

10 ee e 3 1ST UFFER+16 1213 

12 3 8 be 1ST FFER+18 ; 1214 

14 i 8 6 Pt IST UFFER+20 ; 1215 

16 iB a 6 Eg IST UFFER+22 ; 1216 

18 ig : EB TsIL FFER+24 ; 1217 

1C ib ; f ett FFER+28 ; 1218 

20 iG e f ar FFER+32 ; 1219 

EQL : 

22 ib FA a é FFER+34 ; 1220 
| A ; FD BEQL ~_ 
A 0D FF PUSHL 4 8 
7 ; 8 198 cALL #2, CHECKSUM2 
| ; i MOV2wL #510, =(SP) ; 1222 
fom Ghee Ree : 
| 


3; Routine Size: 413 bytes, Routine Base: $CODES + 08DB 


| 
4 
SET 1b-se =1984 01:01:55 AX-11 Bliss-32 V4.0 Page 45 | 
$5a~0b0 12-80 8= 1 he 9:89:33 CLIUTL.SRCISETVOLUME. ago, :1 . (10) | 
7 FB 0011 CALLS #2, CHECKSUM2 : | 
$f 9 } 118 BLBC 43 4 : | 
0201 (6 94 00116 CLRB =s-«dOD $1 * 1225 
04 BC OE A6 3C OO1IA MOVZWL BUFFER+14, @CLUSTER +1 6 
of EO Ab 07 Fi 11F BBC #1, FLAGS, 6$ : 4 
0200 : 4 00124 CLRB = ACC_INC + 1230 
68 45 a6 08 0 i O1 8 CMP ZV #9, #8, BUFFER+69, ACC_VALUE + 1231 
0200 C6 68 45 Ag : 01 6 SUBB3 SUFFER+69, ACC_VALUE, ACC_INC : 1232 
53 11 001 BRB + 1234 
0101 BF 0c AG 8] tt 9 5$ cHPW UFFER+12, #257 : 1237 
08 Ab B Siz TSTW UFFER+8 + 1238 
4A 13 00144 BEQL ; 
02 Ag D5 00146 TSTL UFFER+2 + 1239 
45 13 00149 BEQL : 
06 as B 00148 TSTW UF FER+6 + 1240 
40 1 Ode BEQL ; 
6 B5 0015 TSTW er : 1241 
C 13 00152 BEQL $ F 
A dd 00154 PUSHL #58 + 1242 
56 DD 00156 PUSHL  R6 : 
67 02 FB 00158 CALLS #2, CHECKSUM2 F 
32 5 £9 0158 BLEC =O : 
7E OlfFe BF 3¢ 00156 MOV2WL #510, -(SP) ; 1243 | 
56 DD 0016 PUSHL ; 
67 02 FB 00165 CALLS #2, CHECKSUM2 F 
25 50 £9 00168 BLBC = RO, 7$ : 
0201 ¢é 01 90 00168 MOVE #1, ODS1 + 1246 
04 BC 01 DO 00170 MOVL #1. @CLUSTER + 1247 
13 EO AG 01 Fi 00174 BBC #1. FLAGS, 6$ + 1248 
0200 (C6 94 00179 CLRB = ACC_INC + 1251 
68 2E Ab 08 00 ED 0017D CMPZV #0,-#8, BUFFER+46, ACC_VALUE : 1252 
07 18 00183 BGEQ $ ; 
0200 6 68 2E AG 83 00185 SUBB3 BUFFER+46, ACC_VALUE, ACC_INC : 1253 
50 01 DO 0018C 6$ MOVL #1, RO : 1255 
04 0018F RET ; 
FEFB 52 01 00000064 8F F1 00190 7$ ACBL #100, #1, BLOCK, 3$ : 1191 
50 D4 0019A 8$ CLRL ~— RO + 1265 
04 0019¢ RET : 


22 eee eee ee $$$ ee 


984 01:01:5 AX-11 Bliss-32 V4.0-7 Page 46. 
ats PP eS aT iets Ca A at) 


3: 127 1 1 ROUTINE parse_class (desc) = 

: 457 1503 3 Been’ Parse. 

3: 127 1 o8 

3; 1280 1 » ! 

3: 128% 127 ! This routine parses one class of user (e.g. SYSTEM, ee oy yor 
3 1 ¢ 127 ' to see what protection is allowed. The value returned in the ~~ 
. 127 ! is the protection code, with the bits set to reflect that access 

3 : rf: : re } requested. Note that this is exactly the opposite of what the Sten wants. 
: : . ; f Inputs: 

; 1288 1 4 : DESC = a descriptor pointing to the ASCII representation of iie 
3: 1289 127 ! protection desired 

3; 1290 1280 ‘ 

: 1291 1281 leon 

: 129 128 

3 129 128 MAP desc : REF S$BBLOCK; 

3: 1294 1284 

3 1295 1285 LOCAL 

3: 1296 128 result, 

: 1297 128 rin’ REF VECTORC BYTE); ! String pointer 

3; 1298 1288 

: 1299 1289 ! 

3; 1500 1290 ! Initially set the value to all zeros, no access 

$ 1304 ; 4 ! se a 

3 result = 0; 

3 1308 129 

3: 1304 1s3e ! 

3 1305 1295 i Scan for the occurrence of each keyletter, and, if it is there, set the 
: 1308 1296 i appropriate bit. 

3; 1307 1297 i 

3; 1308 1298 st NCR” tog iy io apointerd; 

: 1309 ! +4 INC nd Geox FROM 0 (.descldsc$w_length] -1) DO 

3 1311 1301 fF * string. index] EQL‘R’ 

; 13g 1306 THEN result = .result OR %Xx‘'1' 

3; 131 130 ELSE IF -stringl. index] af et *w' 

3 1314 1304 THEN result = .result OR %X roe 

3 1315 1305 ELSE IF .stringl.index) EQL ‘E* 

3; 1316 1306 OR .stringl.index] EQL *P* 

3 1317 1307 THEN result = .result OR %X"4’ 

3; 1318 1308 ELSE IF “strings. -index] EQL ‘D! 

3; 1319 139? = -stringl.index] EQL °L' 

3; 1320 1310 {HEN result = .result OR 2x'8 

3: 1321 1311 ELSE SIGNAL. stOPte lis. ivprot); 

3 1356 1 \¢ END; 

3 132 131 

3 1324 1314 RETURN .result; 

3; 1325 1315 END; 


003C 00000 PARSE_CLASS: | 
WORD Save R2,R3,R4,R5 : 1266 | 


D4 | 
Bho here A ca ae 


54 D4 CLRL = RESULT 1 92 
04 A D6 MOVL DESC RO 129 
4 A p 8 ov 4(ROS, a RING 
6 C C MOVZWL (RO) 1299 
1 cE F MNEGL #1, INDEX 1301 
49 if BRB 8S 
50 6342 9A 00014 1$ MOVZBL CINDEX) CSTRINGI, RO 
52. BF 50 91 00018 CMPBsaRO, #82 
ig 1¢ BNEQ 2$ 
54 1 1 BISB2 #1, RESULT 
A 11 000 BRB 8$ 
57 BF : 9 00 2s CMPB ss RO,- #87 
1 BNEQ 3$ 
54 2 88 00029 BISB2 #2, RESULT 
ef 1 900 C BRB as 
45 8F 0 91 000 : 3$ CMPB —saRO,-#69 
06 13 00 BEQL 6 4$ 
50 s«BF 91 000 CMPB = soRO, «#80 1306 
05 12 900 8 BNEQ 5$ 
54 04 88 OO03A 4$ BISB2 #4, RESULT 1307 
if 11 00030 BRB BS 
44 BF 50 91 O003F 5$ CMPB ss RO, #68 1308 
06 13 00043 BEQL © 6$ 
4C SF 50 91 00045 CMPBséRO, #76 1309 
05 fF 90049 BNEQ 7$ 
54 08 88 00048 6$: BISB2 #8, RESULT 1310 
OD 11 O004E BRB Bg 
000000006 8F DD 00050 7$: PUSHL #cLIs IVPROT 1311 
000000006 00 01 FB 00056 CALLS ; LIBSSTOP. 
3 5 55 F2 0005D 8$: AOBLSS Re 1299 
54 D0 00061 MOVL T, ng Oe 1314 
04 00064 RET 1315 


; Routine Size: 101 bytes, Routine Base: $CODE$ + 0A78 


De De Be Be Be Be Be Be Se Be Be Be Be Se Be Be Se Se Se Se Se Se Se Se BeBe Be Se Se Se See 
-_-—- —_—- — — 
wwwn iw 
ooo 2 
uw FS Ww MH 


4 
SET 1b-5¢ 1984 01:01: AX=-11 Bliss-32 V4.0-74 Page 48) 
$64~000 1 = ep-19 4 93:83:33 eeu SaesET VOLUME 68251 . (12) | 
: 1327 1 1 1 ROUTINE set_home (vbn, desc) = 
We ys 
; 1330 1 15 1 | This routine reads a homeblock, modifies it, and writes it back to the 
3 : 1 : » : } volume. 
:1 j 1 ; 1 | Inputs: 
3 1 1 1! vbn - ey yy to read 
3; 1335 13246 1!. ods1 - 0 => ODS 
3 1 1325 1! 1 => ODS1 
3 1 1 $ 1! desc - descriptor for the volume 
3 1 3 1 1! 
3 1 1326 1 !-- 
3; 1340 1329 BEGIN 
3 1341 1330 
; 1 ¢ i ! LOCAL 
: 15344 1 § jiosb : VECTORE4,WORDJ, ! 1/0 Status Block for $Q10W 
: ; 2 : : status; ! General wtatus return 
: 1347 1 36 
3 } : ; . : Read the homeblock. 
: 1350 P 1 3 Status = $010W (CHAN = .channel, 
3; 1351 P 1340 FUNC = 10$_READVBLK, ! Read virtual block 
2 1328 P 134) 10S8 = iosb, 
3; 135 P 1 ¢ Pi = buffer, ' Place it in ‘buffer’ 
3 1354 P 134 P = 512, ' Read 512 bytes | 
3; 1355 1344 P = .vbn); ! Starting at this virutal block 
3 1 28 1345 IF .status THEN status = .iosb(0); 
HEL TEE fight stores | 
> 1359 1348 BEGIN 
3 : ° : $3 SIGNAL (set _hbresd, ! Error reading homeblock 
: 1362 1351 desc, ' for this volume 
3 7 1 26 -Status); ! for this reason 
3 1 135 RETURN false; 
1366 1388 oe | 
:1 1356 2 | | 
3 : : ; 2 ; Change the ACCESSED (LRU) value, if requested 
: 20 33 iff tegsCqual_access) | 
:1 i 1361 IF .ods1 THEN bufferChmi$b_lru_lim] = .acc_value ! For ODS1 
3 ! ie, \ § ELSE bufferChm2$b_lru_lim] = .acc_value; ! For ODS2 | 
: 1375 1 ' 
3 137 1365 ! If the DATA_CHECK qualifier is set, check to see if ODS1 or ODS2. If ODS1. 
; ! g ! ; tell the user that DATA_CHECK is illegal. Otherwise, set the bits. 
:1 S 1 if , flagsCqu \_data) 
3 1 1 THEN IF .ods ! If ODS1, 
: : 1 : 20 THEN SIGNAL (set$_notods2, ' tell user no | 
:1 : 1372 SHESCRIPTOR(DATA_CHECK*)) | 


F 4 


SET “Se 4 AX-11 Bliss-32 V4.0-7 Page 49 
¥5o~000 1e8b- 1980 Foiboses © Lee Tut sreSservocume-642;1 9092) 
ELSE 

BEGIN 

IF .dflags(data_read] THEN bul teethaes readcheck] = 1; 

If .dflagsidata_noread) THEN buffer hagSv_r readcheck] = 0; 

If .dflagstdata_write] THEN bufferChm2 tcheck] = 1; 

beg (8' ene data_nowrite] THEN but ferchns$y. ur _writcheck] = 0; 


Wn—OoO0 


000 


: CNOJERASE_ON_DELETE only works for ODS2. 


: 1 1373 

3 1 1374 

3 1 1375 

31 1 6 

3 1 137 

3 1 1 fe 

3 3 137 

3; 1 1380 

3 1 1381 

3; 1 1 § 

3 1394 1 ! 

; : 95 } : i ek en! tposCqual. erase) 

:1 38 1 THEN SIGNAL (set$_notods2, 1, ZASCID "ERASE_ON DELETE") 

: ; Ms ' 4 ELSE bufferChm2$v_erase *s - flagsCqual_erase_val 

: 1400 1 89 

3 1401 1 i For the EXTENSION qualifier, if ODS1, the field is only a byte Long. Ff 

; 1O08 1391 i the greatest value is 255. ‘If the user specified a larger value, eu’ the 

; ret : M user and return. otheruise, make the change. 

5 1405 1394 2 iF , fLagsCqual_exte] 

: e's : 95 he IF .ods1 

; 1208 1 3 BEGIN ! Start of ODS! 

: 1e05 ; a8 i gente. value GTR 255 

3 1611 1400 4 BEGIN 

: Vlg 1401 4 SIGNAL (set$_ valerr); 

tei 1208 Aedes: 

: 1415 1404 ELSE buf ferChm1$b_extend) = .exte_value; leet abt 

3 ° 

; 141 1608 ELSE buf terChm2$u.. extend) = .exte_value; i Change ope) extend 

: 1419 1408 2! 

3: 1420 1409 i For FILE PROTECTION, the location is different, depending on which type of 

: +6 1 1e19 disk we have. 

: 14 5 141¢ i Also, a word about the value in FPROT _VALUE. The high word, 

+ 1424 141 i FPR Rot SVALUECI6, 16>, one ontains an k  ifidicating which groups are to 

3 1425 1414 i chan t d_ (SYSTER GROUP, WORLD) while the low word 

: 1426 1415 i PeROT >. “contains the complement of the new  aoptees ten for each group. 
> 1427 1416 i Thus, “Ytr YpRO ‘! svaLuE< 16> is zero, then nothing is to be changed and 

: 1 12} there's no need to go yo the Boolean algebra. 

: 6 : 1418 if ,,ftegsCqual_fprot) AND (.fprot_value<16,16> NEQ 0) 

: 14 : 1421 IF .ods1 

3 14 14 § HEN ! Fo 

3 14 14 bufferlhmi$w_fileprot] = (but ter Chat by gf itegros3 AND NOT. fprot_value<16, 16>) 
: i¢ 5 16 ; ape OR (wor. trot value<0,16> AND . tprot_ value<16, 16>) 
3 14 14 $ buf ferChm2$w_fileprot] = (but ferthms w s{itegros3 AND NOT. fprot_value<16,16>) 
3 16 1 OR (NOT. fprot_value< > AND . tprot_ value<16, 16>); 
: 1440 14 § ' 
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iSseoct9pe 01:01:55 YMctT OL tag=52 viOo7eg, | Page 50 
CNOJHIGHWATER only works for ODS2. 


iF ttegst ual. thw) 
THEN SIGHAL (sexs notods2, ASCID ad pon eee ) 
ELSE buf ferChm2$v poo d = .flags(qual_ffw_vald; 


he cous of LABEL, the label is etored in the sone asf on both ODS1 and 
As g sks. However, there is an additional field in nena which 
contain the volume label, padded with zeroes instead of b 


flagsCqual_label) 


If old Label not copied 
then do so now. 


BEGIN 
co” * -flagsCqual_lbi_cpy] 


BEGIN 
CHSMOVE (vcb$s_volnam 
put ter hnist *volname2), 


Lab 
flagsCqual_ tbl Se = 1; 


CHSCOPY.. Label t-vatueto}. 
: lab el“ value! 


veal. s}oln 
buffer hmist *setnene2)); 


IF .ods 
THEN CHSCOPY(. pepet “vatue tty: 
.Label“valuel1 


vcb$s . 
butterthaise, votnane)): 


Copy Label into VOLNAME2, 
padding with spaces. 


For ODS1, also copy to VOLNAME, 
! padding with zeroes 


For OWNER_UIC, the ODS2 homeblock allows a full 16 bits for group, and 
another 18 bits for member. In the case of QdS1 ge east of these fields 
is only 8 bits long. Also, if fold long gic® s into <377,377> for ODS! disks. 


If .flagsCqual_owner] 
THEN 


IN 
IF .uic_value<8,8> NEQ 0 
OR guic. “value<2é, 8> NEQ 0 


vic_value< 
uic_value< a> : OF, 
uic_value<24,8> = 0; 


but tenPhmt Su. volowner] = (.uic_value<16,8> *8) + .uic_value<0,8>; 


hag “valuecb:8> = >= oN 
é, 


Sn 
— 
= 
SSSSLETEERTSSS SF 
ooo 
we 


So tt td 


CONAVUEWN—OOONOnlwry 
SSLESRANLS LSE 


OONOUNE WN OO OONOUS WO 


BREE 


I 
WI OOBNOUNE WO 


ek et ee a a me ne a ek ek nk a ed td = 9 = = = 2 a 2 4 = 
ee me ee ed ek ek ee a eB a a a ad a at a a a a 5 nd a tt ss 


¥ 


hati 3:85:38 HeCiute2sneSset 
ELSE: but ferChm281_volowner} = .vic_value; 


The retention period is agnething that gnly exists for ODS2 volumes. If 
this volume is not an ODS2 disk, then signal an error. Otherwise, set the 
default retention periods. 


If .flagsCqual_retent) 
THEN 


BEGIN 
IF .ods1 ! IF ODS1 disk 
THEN SIGNAL (set$_notods2, ! Signal an error 


SOESCRIPTOR(' /RETENTION’)) ! Saying it can’t be done 


F 
i 


ELSE 


E 
Nemove ce’ retmin_value, bufferChm $a. Abd rte 4, 
HSMOV retmax_value, buf ferChm2$q_retainmax)); 


Arad otha. the volume protection, is also stored in two different places in 
the home blocks. See the discussion of the protection value for 
FILE MOROTECTION, above. 
vg, tenet quel_vprets AND (.vprot_value<16,16> NEQ 0) 
IF .ods! 


THEN 
buf ferChmi$w_protect] = 


Ce ee et 


' For ODS 
bu tecchonae sprotect) AND NOT. vprot_value<16,16>) 
re aueret Value<0,16> AND .vprot_Value<16, 16>) 


but fertha Sw sprotest? we NOT. vprot_value<16,16>) 


ELSE 
buf ferChm2$w_protect) = 
NOT. vprot_vValue< > AND .vprot_Value<16, {6>); 


WINDOWS is also in two different places. 
if .flagsCqual_windows) 
THEN 


BEGIN 
IF ods! THEN bufferChmi$b_window] = .window_value ! For ODS 
pe bufferChm2$b_window] = .window_value; ' For ODS 


1 
2 
‘ 

The USER_NAME is in the same place for both types of home blocks. 


if .flagsCqual_username) 
ei CH CoPYt. user -valuel0}. ! Copy the username to the homeblock 


yuger. “value 
! padded with spaces 


00 4 
isi 


80000000" 


46 4F 49 54 4E 45 54 


0 
0 


4 
464 


fe 


w$ep-19ee t2i09i22 Eek TUT SSR 


Sw-checksum2)); 


! Read Virtual Block 


From "BYE ter ees 
Write 
To this sirtual block 


! If not able to read 


Error writing a homeblock 


to this disk 
for this reason 
don't mod database 


se voLume 682;1 


-PSECT SPLITS,NOWRT ,NOEXE .2 


3 1 1544 hm2$s_ 
3: 1 é 1545 buffer hm st “ownernene)); 
3 3 1 rf 
2 53 18¢ 7 R te the check 
: 6g rk ecompute the checksums 
: 156 1 checksum2(buffer, SBYTEOFFSET(hm2$w_checksum1)); 
: ; o7 : chechsun3 butter, SBYTEOFFSET( pag 
3 1565 1554 2! 
: } 4] ! 5 Write the modified homeblock back to the disk 
: 1 $8 P 1 3 Status = $010W _— = .chan 
:1 6 P 4 8 FUNC = = jos *ORITEVBLK. 
: 1570 Pp 155 
3; 1571 P 1560 bys = buffer, 
3; 157 P 1561 Pp zs 
3; 157 1 66 P = ~vbn);: 
3: 1576 156 IF .status THEN status = .iosb(0); 
3; 1575 1564 IF T .status 
3: 157 1565 THEN 
3 137 1388 BEGIN 
; : 4 138 eet vie athe: 
; 1360 1368 desc, 
3 1338 1570 status); 
3 15 ¢ 1571 RETURN false; 
3 138 1376 ND 
: 1584 157 ELSE RETURN true; 
3; 1585 1574 END; 
48 43 45 48 43 SF 41 54 41 44 
44 et 
45 54 45 4C 45 46 SF GE GF SF 45 53 
20588 
49 48 52 41 4D SF S52 45 5&4 41 57 48 47 4 
00 0 4 


C P.ADP: ASCII \DATA_CHECK\ 
P.ADO: <:LONG 10 
“ADDRESS P.ADP 
P.ADR: ASCII \ERASE_ON_DELETE\<0> 
P.ADQ: .LONG 17694735 
“ADDRESS P.ADR 
P.ADT: .ASCII \HIGHWATER_MARKING\<0><0><0> 
P.ADS: .LONG 17694737 
-ADDRESS P.ADT 
P.ADV: ASCII \/RETENTION\ 
P.ADU: . 


- LONG 0 
eADDRESS P.ADV 


-PSECT SCODES,NOWRT.2 


roe 


4 | 
WbrSep-1984 1:01:55  yaNatt BLisg=32 v4-0-742, Page 55 


OFFC 00000 SET_HOME: 


.WORD Save R2 R3,R4 RS ,R6,R7-RB/RI-R1O,R11 3 1316) 
8 ' EF 9€ MOVAB P.ADO, 1 : 
A 6 $0 3 MOVAB VIC VALUE, R10 : | 
G : MOVAB LIBSSIGNAL, R : 
F 1 MOVAB FPROT VALUE, R8 ; 
' EF 1 MOV ELAGS R : 
E 8 ¢ SUBL2 #8, SP ; 
—E 7C CLRO 0 = §P) + 1346) 
7E D4 A CLRL 0s = (SP) : 
6 AC DD C PUSHL veN : ' 
7E 02 0 BF 3C F MOVZWL #512, =(SP) : 
A? OF PUSHAB BUFFER : 
7E 7¢ 7 CLRQ. = SP) : 
20 AF OF 9 PUSHAB 1088 ; 
31 DD C PUSHL #4 : 
0224 C7 DD 000 PUSHL CHANNEL : 
E D4 0004 CLRL. = (SP : 
000000006 90 ¢ FB 0004 CALLS #12, SYS$Q10W ; 
6 D0 00048 MOVL RO, STATUS : 
96 6 : 004 BLBC STATUS, 1$ : 1345 
6 E ¢ 005 MOVZWL 10SB, STATUS : 
10 6 €E 0054 BLBS STATUS, 2$ : 1346 
6 DD 00057 1$: PUSHL STATUS + 135 
08 AC DD 00059 PUSHL DESC + 1351 
01 DD 0005¢ PUSHL @# + 1349 
000000006 a pp O05 PUSHL @# ETS_HBREAD ; 
0255 31 000 BRW : 
11 67 01 E1 00067 2s: BBC #1, FLAGS, 4$ ; 1359 
07 0221 (7 9 0068 BLBC «OS, : 1361 
4— A? FC AB 0 0007 MOVB ACC VALUE. BUF FER+46 ; 
05 11 0073 BRB 4 ; 
65 A? FC AB 90 00077 38 MOVB ACC VALUE, BUF FER+69 :1 2 
38 67 02 €1 0007C 4$ BBC #2, "FLAGS. :1 
F 0221 ¢ £9 90 BLBC 0DS1, 5$ : 1369 
B DD 000 PUS R11 : 1 if 
oi DD PUSHL #1 : 137 
000000006 8F DD 00089 PUS #SET$_NOTODS2 : 
69 3 FB 09 F CALLS #3, LIBSSIGNAL ; 
. . 32 BRB 9$ : 
04 04 A? 1 3 094 5$: BBC #1, DFLAGS, 6$ + 1375 
4A AT 1 88 00099 BISB2 #1. BUFFER+4 ; 
04 04 A? 3 fi 68: BBC #3. DFLAGS, 7% : 1376 
4A AT 1 8A OOOA BICB2 #1, BUFFER+4 F 
04 04 A? Fi 7$: BBC #2. DFLAGS, 8$ : 1377 
4A AT 8 0O0AB BISB2 #2, BUFFER+4 ; 
04 04 AZ fi AF 8$: BBC #4. DFLAGS, 9$ : 1378 
4A AT 2 BA B1CB2 #2. BUFFER+42 : 
21 01 =A? 4 €1 9$: BBC # FLAGS#, 11$ > 1384 
10 0231 C7 £9 BLBC —00$1, 108 : 1 85 
AB OF PUSHAB P.AD ; 
. DD PUSHL #i é 
000000006 8F DD PUSHL  &#SETS NoTODS2 ; 
9 3 re CALLS ! { LTB$S1GNAL : 
ee EF : XTZV. #5, #1, FLAGS* ; 
5 0 7 1 108 EXTZ 1, FLAGS+1, RO 1387 
4a A 01 2 FO INSV = RO, «#2, #1, BUFFER+42 : | 
| 
} 
| 


— | 


Kk 4 
16-Sep-1984 01:01: AX=11 BLiss-32 V4.0-74 Page 54| 
13-808 - 1382 94:83:33 Aer UT sReiseTVOCUME 68251 . 35 
2B 7 E1 QOOODE 11$: BBC #3, FLAGS, 14 : 1394 
$2 000099906 09 09 H MOVL EX{E_VA ye, R + 139 
8 E E BLBC ODS i + 139 
QOOOOOFF BF 2 b i cHPL R he + 1398 
OO7711EA 8F DD O00F PUSHL # 03370 + 1401 
69 1 é F CALLS #1, LIBSSIGNAL : 
01 é 1 BRW + 1402 
4D A? 0 103 12$: MOVB Re BUFFER+45 + 1404 
4 11 001 BRB 1 + 1395 
66 AT 2 BO 00109 13$:  MOVW  R2, BUFFER+70 : 14 
40 67 4 €1 00100 148: #4. FLAGS, Igs + 141 
02 As él 111 TSTw § FPROT_VALUE+ F 
38 114 BEQL Ss : 
1¢ 0221 ¢ 116 00S1 15 : 1431 
21 44 A? 3C 00118 BUFFER+36, R1 + 1423 
0 02 AB 3C OO11F MOVZWL FPROT VALUE+2, RO : 
51 50 CA 00123 BICL2. RO, R : 
50 02 AB 3C 00126 MOVZWL FPROT_VALUE+2, RO * 14246 
PH C 0012A MOVZWL FPROTVALUE, R ; 
3 CA 00120 BICL2 R2, RD F 
A? 0 1 A9 001 0 BISWS R1. RO, BUFFER+36 ; 
1A 11 001 BRB 16$ : 1423 
51 56 OAT 3 137 15$:  MOVZWL BUFFER+54, R1 + 1426 
50 02 aS 3¢ 00138 MOVZWL FPROT VALUE+2, RO ; 
51 50 CA 0013F BICL2 R : 
50 02 A& 3C 00142 MOVZWL FPROT_VALUE+2, RO + 1427 
3 : ¢ 146 MOVZWL FPROT-VALUE, R2 F 
g CA 0014 BCL ¢ R2, F 
A7 50 3 AD 0014C¢ BISWs RI. BUFFER+54 ; 
21 01 A 6 E1 00151 16$: BBC #6 FLAGS+1. 18$ 3 1432 
10 0231 C 34 156 BLBC OD$1, 178 : 1433 
4 AB SF 00158 PUSHAB P.ADS : 14 
1 DD 13 PUSHL #1 : 
000000006 8F DD 0016 PUSHL #SET$_NOTODS2 F 
69 3 FB 166 CALLS #3, LYBSSIGNAL ; 
g 11 0016 BRB 1 ; 
A7 01 EF 168 17$: EXTZV. a7, a. FLAGS+1, RO > 1435 
1 3 9 FO 171 INSV RO, #3, #1, BUFFER+G2 : 
9 5 £1 00177 18%: BBC #5. FLAGS, 20$ + 144 
02 AZ é 17 BBS HG FLAGS+2, 19S > 144 
A O1FB «C7? C 001 mMovC3) ff é. BUFFER+472, LABEL _BUFF + 1449 
0 A7 40 «BF 001 BISB2 #64. FLAGS+2 : 1451 
20 B88 19 ag C 18 19$ MOVC LABEL VALUE. @LABEL_VALUE+4, #32, #12, -  : 1457 
09 H | & 59 1 BLBC ODS1, 20$ : 1458 
00 08 68 4 Ag C 001 MOVCS LABEL VALUE. @LABEL_VALUE+4, #0, #12, - + 146 
2s 1 BUF FER+1 : 
67 9 uA 208: STB FLAGS > 1471 
23 0221 ad 148 BLBC  ODS1, 23$ + 1474 
1 AA 1 TSTB _WALUE+1 3 1477 
05 18 BNEQ 3 
03 AA ; 18 IsTB : _VALUE +3 ; 1478 
6A OOF FOOFF t p 1B gis MOVL 16711935, UIC_VALUE > 1481 
0 02 AA 9A OO1BE 228 MOVZBL UIC_VALUE#+2, RO 7 14 
| 


io 
So 


-> 
=~ 


“$eR-1904 O1:0N:55  YANGHY OLtagc3e v4 0-74. 


RO, RO 
1C ASH #8 UE. RI 
i he ee 
oe 24 
: \C ACY UE, BUFFER+64 
A DQ GotD gus: Rov Haghel 268 
ae 1 & 3 18 BeBe Obst 28s 
0 zg SF 00100 PUSHAB P.ADU 
; “6 OF bb dote PUSHL i 
DD QOTE PUSHL #SET$_NOTODS2 
oo CALLS aH LIB$SIGNAL 
“s c it Ooles ROVC3 #8. RETMIN.VALUE, BUFFERS 72 
A ; 18 one OVE RET THAX, 7 Aue: BUFFER+8 
1 mAX 
i i é Olt mae 137" el 2 
- s i ; at BUFFERSS2,_ RI 
ee ta ic ° 08 MOVIL VPROT VALUE*2, RO 
HI aid, : ROVEUL PROT. VALUE#2, RO 
bog Bea ROYAL Vet MALU 
rf e 52 ch 3518 Bist J. a A BUF FER+32 
i Ag e) 
0 BRB nese 
7 Coe 
i 8 30 EA 00890 Rove vPROT.. VALUE+2,_RO 
50 Ee ic ° i MOVIUL VPROF-VALUE.-R2 
30 ° 3 ch 8 Bisus RT. A chur FeRsS2 
51 A9 s, Bisws RY. RO, 
” a 0221 °F FS ° é3 -s OVE WINDOW VALUE, BUFFER+44 
ca ee Be ee wre 
Hv - Of 1 3, 0$: eoucs Usén n VALUE, @USER_VALUE+4, #32, #12, 
1 A oi €1 
3 OBB g0 AB 
ati 318: PUSHL 
20 i oF i CALs. ig, SeHECKSUMZ 
0 1 MOVZWL - 
000000006 90 OF oF se i PUSHAB 8 i 
~(§p 
000000006 00 ge fe curd =($p) 
Ae BD MOVIUL #12, =(SP) 
0200 BF Sc O0587 PUSHAB BUFFER 
“9 O AY $F BooKe CLRQ. =(SP) 
? F 00991 PUSHAB 1058 
mk BD Mee PUSHL CHANNEL 
0226 C7 DD 00696 CLRL 


ee 


3; koutine Size: 


712 bytes 6 


000000006 00 F 
6 D 
é 5 
i 7 
6 0D 
08 AC ODD 
1 DO 
000000006 8F DD 
9 4 + 
4 1 
50 1 00 
4 
50 D4 
4 
Routine Base: S$CODE$ + OADD 


Oo 


fee 


Be $2:85:22 — etiutLSsee 


aie. $y 389100 


RTATUS. $ 
10S. Talus 
STATUS 


34 
STATU 
} SC 
#SeTs HBWRITE 
aoe LIBSSIGNAL 
#1, RO 
RO 


$se7vOLUME 6 852;1 


N 4 
VO4~000 1er$ep=198e 12:09:28 ECLTUTLSSReSsE vOLOmE 68221 P00e 18) 


1 es ROUTINE set_ucbvcb (ucb) : NOVALUE = 
1 lee 


pa 


' 

! This routine is called in kernel mode, to modify the fields in the UCB and 
VCB which correspond fo changes made in the homeblock. The address of the 

H UCB is passed as the input argument. 


1 
1 
1 
1 
1 
1 
1 
1 . 
BEGIN ; 
MAP ucb : REF SBBLOCK; ! Define the UCB 
BIND 
orb = .ucbCucb$l_orb] : S$BBLOCK, ! Define the ORB 


SSRVES 


AO 
oo 
—_ 


veb = .ucb vepst yeb : =. ! Define the VCB 
devchar = ucbCucb$l_devchar) : $BBLOCK; ! and devchar longword 


$38 


Go thru the UCB and VCB, mak ing the same changes fo it that were made 
f the LABEL qualifier is set, the volume 
ock and in the VCB, but the logical name 


5 


to the homeblock. Note that 
Label is changed in the homebl 
(DISK$lLabel) is NOT CHANGED. 


3S 
on 


3 


BONA WN SO OONOAUE WIN" OVDOnOou 


-flagsCqual_access]_AND (.acc_inc NEQ 0) 


EN vcblvcb$b_lru_lim] = wvebeveb$b_Lru_lim] + .acc_inc; 


IF 
TH 
if <-flogelquel dete) AND (.bufferChm2$b_struclev] NEQ 1)) 


AOAAAAAAO 


wr 


flags(data_read] THEN Govchorl dou rck) = 1; 
flags data noreag Tnen devcharldev$Sv_rck] = 0; 
fla ‘ 


at a ot ot 


write] THEN devchar(dev$v_wek) = 1; 


gs(data 
nowrite] THEN devchar(devSv_wek] = 0; 


gs(data 


MEUM —OOCONOUS wo 


PAADAAAA AGO 


AAAAAOS 
USZSVoNe 


MOPUPOPOTO 


== O00 


IF - {tegsCqual_erased 
THEN veblLvcb$v_erase) = .flagsCqual_erase_val); 


If -flogeCqual exte) 
THEN vcblvcb$w_extend] = .exte_value; 


IF flogeCau l_fprot] AND (.fpro 


aed RP A a ek 


=—OOOWVNAUFS WIN S$ QOVWONAULS WN OO 


ue<16,16> NEQ 0) 


va 
THEN vcblvcb$w_fileprot] = (.vcb sebsy fileprot] AND NOT .fprot_value<16,16>) 


ee ee ee me ee ee ee ee ae ee ec ce ee ee ee ee ee ee ee ee ee ed ce ed ed ed ed ed ed od dd wd dd od 
ee ee a ek ek ed ed ed dd = = od = = 3 = = = = 2 8 = oS 8 St ot 2 So SS SS 


POPE AAAAAAAA AAA AAAAAAAA AAA AAAAAA MII 


6 OR’ (NOT. fprot_value<0,16> AND .fprot_value<16, 16>); 
6 If .flagsCqual_fhw] 

635 AND'NOT’sodsi ~ 

° THEN vebLvcb$v_nohighwater] = .flagsCqual_fhw_val); 

rt If .flagsCqual_label) 

639 THEN CHSC VC. Fabel vatuet 9). 

ro ;tabel_valueltJ, 

046 veb $velnane. 

64 veblvcb$t_volname)); 


a 
* 


SETTLES 


BROVRAE GIS 


PAEAAAAO OD 


Thel 


PAAAAAOAAO 
REA 


Se 
SSIS SS S855 


Se Se Ge Ge Se Se Ge Ge Ge Se Ge Ge Se Ge Se Se Fe Ge Ge Se Se Ge Se Ge Ge Se Ge 
et a a bd —) 2b — 2) es — 3 ts et tt tl 
a a ss a a a ot ss a a tb 9 dt 
DNAUES WN" OOONOUS Wt" 


Teh 


1E-se0-19be O1-01:55  YaNeNT BL ieg=32 y4-0-762, 
flagsCqu L_mntver] 


vcb$v_mountver] = .flags(qual_mntver_val); 


thei orblscestooone “owner = vic value; 


-flags(qual_retent] AND (NOT .ods1) 


BEGIN 
CHSMOVE(8, retmin_value, vebtvcbS$q_ rotetantad} : 
ah » retmax_value, vcblvcb$q_retainmax]) 


- flagsCqual 
then ucblucbsv~ “untded) = .flagsCqual_unt_val); 


660 
$e3 CoE PADS J bie Mook rad rotors valet) AAD WOT’ weret..velueci6, 16>) 
ordLorDdw_pro rdLoroew _or ° r 
rea 65 ” aR eet ng AF, 16> AND. Wprot.valueci6,16>); 
poe) e2 orbCorb$v_prot_16] = 1; ! $OGW protection word 
65 IF .flagsCqual_windows] 
£06 o2 THEN veblvebsb~ window) = .window_value; 
689 65 RETURN; 
670 65 END; 
O7FC 00000 SET_UCBVCB: 
WORD Save R2,R3,R4,R5,R6,R7,R8,R9,R10 
5A 00000000" EF 9€ 90002 MOVAB FPROT VALUE, R10 
| eee ee a 06 0010 MOVE, UCBS A?” 
38 iC AS DO 00014 MOVL 2aChr) RB 
5 34 a? 00 00018 MOVL (R7). R6 
0c 69 01 3 001C BBC wi, FLAGS, 1$ 
0220 9 0020 TSTB = ACC_INC 
& 13 00024 BEQL=SséTSS 
49 AG 0220 f 8 6 ADDB2 ACC INC 73(R6) 
2€ : 1$: BBC é FLAGS, 5$ 
01 20 Ad 91 C BUFFER® a 5) 
05 rx) 1 i} Bact Fi DFLAGS, 2$ 
ge A? 40 «BF fa BISB2 #64, AYE 
05 Ag 3 FI 28: C e DELAGS 3$ 
A7 40 8F 8A BICB2 #64, 59(R75 
05 4 A 2 Fi A 38: BBC i DFLAGS 4$ 
b 80 BF 8 4F BISB2 #128, 59(R?) 
05 Ag . 4 4$: BBC rT BF LAGS 5$ 
A? 80 BF &A 9 B1CB2 #128 9(RP) 
11 1 a9 E1 S$: BBC uagset, 6$ 
o¢ 0221 c9 £8 BLBS ap61 
50 01 «Ad 1 5 EF EXTZV @ in? FLAGS+1, RO 


5 
SEV, iSoseoctgge 01:01:55 yAKeAt Ol iage82 ya 0o7Kg. 


53 Ab 1 0 F INSV RO, #3, #1, 83(R6) 
8 83 68: BBC aS FLAGS 7% 
3E as 000000006 5; movw «EXE VALUE, 2(R6) 
1F 6 ) 7$: BBC #4, FLAGS, 8 
02. AA TStw FPROT_VALUE+ 
1A BEQL $ 
1 6A 6 OC MOVZWL 74(R6), R1 
9 02 AA C MOVZYL FPROT_VALUE+2, RO 
02 AA ic MOVIOL FPROT_VALUE+2, RO 
A 3 MOVZWL FPROT-VALUE, R2 
¢ CA piste 
4A Ag A9 BISWS RI, RO, 74(R6) 
1 01 A 3 OAS 8S: BBC FLAGS+1, 
C 0221 co EB 99 BLBS 1, 9$ 
50 01 a9 7 €F EXTZV #7, #1, FLAGS+1, RO 
53 Ab 1 Q FO INSV » #4, #1, B3(R6) 
69 3 09 9$: BBC #5. FLAGS, 10$ 
0c 0 08 BA 04 AA C 9 MOVCS ABEL VALUE. @LABEL_VALUE+4, #32, #12, - 
oc 02 a9 €9 00066 10$:  BLBC  FLAGS+2, 11$ 
50 02 a9 1 gi EF OOOCA EXTZV #1, #1, FLAGS+#2, RO 
53 Ab 01 02 9 FO 0000 INSV RO. #2. #1, 83(R6) 
69 95 00006 11$:  TSTB FLAGS 
07 18 000 BGEQ 
68 000000006 00 010 OOODA MOVL UIC VALUE (RB) 
11 AQ E9 000E1 128 BLBC = FLAGS+1, 13$ 
0c 0221 +9 000ES BLBS Si, 13$ 
C 6 109 AA 08 OOOEA MOVC RETMIN_VALUE, 108(R6) 
4 A 1 0 O0FO MOVC3 #8, RETMAX VALUE. 116(R6) 
0c 02 a9 E1 000F6 13$: BBC ae. FLAGS*#2, 14 
50 02 Ad 1 EF OOOFB EXTZV #3. #1, FLAGS+2, RO 
65 «A? 01 4 FO 00101 INSV RO, #4, #1, 101(R7) 
20 01 «Ad 02 €1 001 7 14$: C #2, FLAGS+1, 15$ 
OE AA 8 10¢ TSTW  VPROT_VALUE#2 
1B 13 OO10F BEQL 
51 18 «AB 3 0111 MOVZWL 24(R8), R1 
0 OE AA 3C 00115 VZWL VPROT VALUE+2, RO 
1 50 CA g119 BICL2 R 
—E AA 3C 11¢ MOVZWL VPROT_VALUE+2, RO 
5 € AA 3C 001 MOVZWL VPROT“VALUE, R2 
5 2 CA 00124 BICL . 
18 «AB 5 1 A9 00127 BISW3 RI. RO, 24(R8) 
0B Ag 1 88 0012C 15$:  B1SB2 #1. 
05 01 A 3 f 1 BBC #3. FLAGS+1, 16$ 
48 A6 28 AA 90 001 MOVB  WINDOW_VALUE, 72(R6) 
04 0013A 16%: = RET 


; Routine Size: 315 bytes, Routine Base: $CODES + ODAS 


Pe Se Se Ge Se Ge Ge Be Ge Be Se Be Se Se Ge Ge Se Ge Ge Se Ge Ge Se Se Se Se Ge Be Se Se Se Se Se Ge Fe Fe Se Se Se Se Se Se Se Se Se Fe Se 


of 
oti 


wr 


beet 9 


oO 
i 
a on 


SSN 


SOACAOADS 
o@ VePwn— 
vv 
ee a a a a a a a a a a a a a a 
oa RRR RRA RS 


SSS8Ss3 
S223 


SSSI ISIS Oo 


SSL 
AAPSAAO 


oO 
w 


NNO O 


Sul SSeN 


BS at a 


SSLESE 


. 
@ 
° 
a 
7 
° 
o 
o 
* 
° 
. 
. 
* 
° 
° 
2. 
7 
* 
. 
° 
7 
o 
. 
& 
. 
° 
° 
° 
o 
7 
o 
7 
o 
© 
° 
* 
° 
© 
ca 
© 
a 
. 
° 
. 
° 
° 
e 
7 
° 
° 
e 
. 
o 
7 
o 
° 
° 
2 
° 
7 
© 
. 
e 
. 
o 
° 
e 
. 
° 
© 
2 
. 
° 
. 
° 
. 
° 
7 
6 
* 
a 
° 
o 
. 
° 
© 
e 
7 
° 
+ 
a 
° 
a 
© 
a 
. 
e 
2 
° 
os 
o 
o 
° 
° 
° 
. 
° 
. 
° 
. 
e 
. 
e 


a a a a a a a ek ak at ak et tt a a a td a = = a 9 4 = 2 a 2 4 4 


SSNS 


Roronononorororoeny 


DNA VEWN “OC OONOUE WO 
Sway 


ed dd ot ot 
MEWN—O 


iSseo-t9ge 01:01:55 


pot ine modify volset (desc) : NOVALUE = 


* 
- oa 
os 


Onty bose” 93y SET.SYS on the root ges pA of the volume oats 
nitia ized. volumes ¢ gon be ve sets $9 we don 
have to yorey about the SREAD finding ae e End-of-F le lee. 

as zero in this case 


Inputs: 
desc - address of root volume device descriptor 


Outputs: 
None 


MAP 
desc : REF VECTOR; 


LOCAL 
status, 
sus ter, } istortvets jength By BYTE}. 
fab : $ ~~ es 0-5 7 
= Mae ag te yond 
: SRABLFAS = fab 
UBF = buffer, 
USZ = 100); 


' 
: Put the root device name in place 


fab fab$l_fna] = .desc 43: 
fab(fab$b_fns) = .descl0J; 


7 Open and connect to [(0,0)VOLSET.SYS 
if (status = SOPEN(FAB = fab)) 


THEN status = SCONNECT(RAB = rab); 
If NOT .status 
THEN 


BEGIN 
LOCAL 
ptr 
d : VECTOR 
b : VECTOR 
ptr = ininove = faot tsp. fns), 
af fab$l“fnal, 
ptr = GRAINEC. fab fab$b_dns], 
bi fab$l~ _dnal, 
some yes wile, 


SeTVOLUME 6 852;1 


iEseortane 91:01:55 YAGI euler ytereg, | Pane, tt 


vou~000 


Status); 
END 


ELSE 
BEGIN 


i 


NOU SW OOOO 


wu 


] 
H The first record contains the volume set name. Skip it. 
SGET(RAB = rab); 


Search thru the records until the one matching the saved old label 
is found. When found, replace the wn? Label with the new one, and 
wptets the record. 


WHILE SGET(RAB = rab) DO 
BEGIN 
IF CHSEQL(vcb$s_volname, 
Label"buff 


vsl$s “name, 
buffer, 


SPE EE 


ree re Se eee ot te 
COnNOW Mv ODe NOP O 
Mw 


THEN 


CRSCOPY(. tepet “vatuet ty: 
: label_ valuel1 


vsifs. s_pame. 
rab a eit: = buffer; 


SSNS 


760 coos rabsu, 12 = vsl$c length; 
761 = rab); 

106 

76 END 3 

764 END; 

oe? END; 

7 SCLOSE(FAB = fab); 


Se Ge Ge Ge Ge Ge Ge Se Se Ge Ge Se Ge Se Ge Ge Se Se Ge Ge Ge Ge Ge Ge Ge Se Ge Se Ge SH Se Ge Se Se Ge Ge Ge Ge Ge Ge Ge Ge 
a a at ak a a wt a = a a ss 8 a a a ts ts — 0 5 2 tt tt ttt 


i kk kk tt tk kt tt a ot so 
SQLS 


PAA MVA SE BBE 


SRINIVAS DSSS BS BS BS BB BE NAINA ANNAN 


NOUS WN 0 OONOUS WN 


~~ 
SSHLF 


RETURN; 
END 


-PSECT SPLITS,NOWRT ,NOEXE ,2 
53 59 53 2— 54 45 53 4C 4F 56 5D 30 2C 30 5B page P.ADW: oSCiE \€0.03¥0LSET.SYS\ 
8 P.ADX: .BYTE 
-BYTE 0 
7A - WORD 


? -LONG 
-LONG 
-LONG 
-LONG 
WORD 


4 


: 
s 
B4 
i 
$ 
CA 
$ 
z 
se 
5 
is 
i 
i 


igo$eoct9ge 01:01:55 


-BYT 1 


P.ADY: 


| 
ae 
00 


seeee#ee#ee?#e?#### 
--oooorrr- 


g 


CLIUTL.SRCISE 


-LON 
oAbpness P.ADW 


- LONG 


=5535=222 
“a 
mmmmnag 


~EXTRN SYSSCONNECT, SYSSGET 
-EXTRN SYSSUPDATE, SYSSCLOSE 


.PSECT $CODES,NOWRT,2 
OFC 00000 MODIFY_VOLSET: 


en Blis stty 


of Page 


OLUME .B 


Pete Se Se Se Se Se Se Se Ge Se Ge Ge Se Se Ge Se Ge Se Se Se Ge Se Ge Se Se Se Se Ge Se Be Ge Se Ge Se Se Se Ge Se Ge Ge Ge Ge Ge Fe Se Se Se Ge Se 


62 | 
(16) 


oc 


3; Routine Size: 


Palle 


63 


cO AD 


SSSSaeS =FS FSSomT Tm 


Routine Base: 


Sone 
+ 


SOOG 
2225 


++ 
2O¢ 


_s 
~+ 


o~ 
> 


FF70 


a 
al 
LSLALSSTSRELALALRALASSSSSSSSMSSLOSSRSS LARS 


"oO M—TIMNOTNO—- "OSC OONONOMoOn pp oo bm wwe o | 
> _+_+_¢_o_+ + + > +e 

> ose Ok ok Se Se ot oe oe oe ee oe oe ee ee ee 

> = 


Se 


SCODES + OEEO 


Sede nay YANG OLiagcB2 Mi Oe TAR, 


aor ent R2.R3, R4,RS,R6,R 
M ay, ( CPF an 


AB 
MOV SurFek: tt as 
MOV eg FAB+44 
M3 sno). *FAB+S2 
hout® H o + se 
BLBC stat US, us 
CALLS #1, SYSSCONNECT 
MOVL RO. STAT 
fies 
mOVC boy stares, 8 
oy theres, (PTR) 
PUSHL no 3 
HAB a. 
PUSHL SSETS WRITEERR 
CALL Wee LIB$SIGNAL 
HAB RAB 
CALLS #1, SYSSGET 
SHAB R 
CALLS #1, SYSSGET 
RO. 4$ 
CMP CS #12, LABEL_BUFF, BUFFER 
mOVCS LABEL VALUE. @LABEL_VALUE+4, #32, #12, 
MOVAB FFER, RAB+40 
Bese RAB+ 34 
PUSHAB 
CALLS #1. SYSSUPDATE 
PUSHAB 
calle =, SYSSCLOSE 


Be Se Se Se Se Se Ge Se Se Se Ge Se Se Se Ge Se Se Be Se Be Se Ge Se Se Se Se Se Se Ge Ge Se Ge Se Ge Se Ge Se Ge Ge Se Ge Se Ge Se 


iEoseo 1964 01:55 YaRGHY OL fng= 82 Wenge 


GLOBAL ROUTINE COMMON_10 (EFN, CHAN, FUNC ,JOSTS ,ASTADRASTPRM,P1,P2,P3,P4,P5,P6)= 


$4 
s 


‘es 
' 
FUNCTIONAL DESCRIPTION: 


This routine imply executes a $010W call with the parameters 
supplied. It is called by the MOUNT code that SET Links with. 


CALLING SEQUENCE: 
COMMON_10 (EFN,CHAN,FUNC, IOSTS ,ASTADR ,ASTPRM,P1,P2,P3,P4,P5,P6) 


INPUT PARAMETERS: 
As to $0]0W 


—~ 
SSEAS STOR SSE 


SSS 


i 

i 

i 

i 

i 

i 

i 

i 

i 
mo OR 

7 i IMPLICIT JNPUTS: 

is | OUTPUT PARAMETERS 
3 58D hart pte 
38 a8 i IMPLICIT OUTPUTS: 
196 ae —_ 

7 i ROUTINE VALUE: 
oS f 3 : As to $0]0W 
38 785 i SIDE EFFECTS: 
B01 7 ' As to $010W 

1 7 i 
5 I Ee 
4 BEGIN 
BUILTIN 
CALLG; 


EXTERNAL TINE 
SYS$Q]0W : ADDRESSING_MODE (GENERAL); 


: We simply pass the call and its parameters along to $010W. 


CALLG (.AP, SYS$Q]0W) 
END; ! End of routine COMMON_IO 


me me mt a a ed ed os = od a ws = = td 
ee i a a a a a a a a a a a a St a “= a 2 = 2 SS 2 os 


Seoeeeseseeress 
PIPPI IPIPIPIPIPIPIPIPII IIIA 008 ad ad ad a tk kk kk td dt tt tt 


oe se wt = a 


CONOUS WN —O 


0000 0000¢ ENTRY COMMON_I0, Save nothing 
000000006 00 6C 00¢ cA Solow 


ALG (AP), SYS 


So rbepdoage 91:00:55 panei ouiencte yeereg, maf 
| 
| 


3; Routine Size: 10 bytes, Routine Base: SCODES + OFBS 


1807 9 ELUoOR 


PSECT SUMMARY 
Name Bytes 
SGLOBALS 48 NOVEC, WR 
NOVEC, WR 
1T$ 1 NOVEC ,NOWR 
SCODES 4 NOVEC ,NOWR 
Library Statistics 
File Total 
$ Sveti L18.L32; 1861 
“HeeaeaUASB Eevee es TPAMAC i 32:1 3 


te-se “19 
14-Sep-19 


Attributes 


T, RD ,NOEXE,NOSHR, 
T, RD ,NOEXE.NOSHR, 
T, RO ,NOEXE,NOSHR, 
T, RD, EXE,NOSHR, 


Symbols 
Loaded “Percent 
181 
Q 0 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:SETVOLUME/OBJ=O0BJ$:SETVOLUME MSRC$:SETVOLUME/UPDATE=(ENHS: SETVOLUME ) 


ize: 4034 code + 2324 data bytes 
Run Time pt: 85. 
Elapsed tine: 
Lexenes/CPU-Rin: aE 


Memory 78 s 
ee ee mh. De 


Be 92:09:22 


AX-11 Bliss-32 aft i | 
CLIUTL.SRCJSET VOLUME .652;1 


-EXTRN LIBSSIGNAL, LIBSSTOP 


LCL, REL, CON,NOPIC,ALIGN(2) 
LCL, REL, CON,NOPIC,ALIGN(2) 
LCL, REL, CON,NOPIC,ALIGN(2) 
LCL, REL, CON,NOPIC,ALIGN(2) 
Pages Processing 
Mapped Time 
10 :01. 

9 $0 80:8 
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